Ini sudah selesai . cara
yg berwarna biru untuk mengisi kolom yg sudah saya warnai orange.
Bila mau di pakai . tanda petik depan nya di hapus saja (dihilangkan)
Sub Menggabungkan_cell1_pengetahuan()
Dim sh1, sh2 As Worksheet
Dim c, r, s, t, u As Long
Dim ha1 As String
Set sh1 = Worksheets("PENGETAHUAN")
Set sh2 = Worksheets("tabel")
sh1.Activate
For r = 7 To Cells(Rows.Count, 1).End(xlUp).Row
' For c = 7 To 45 Step 7
' Cells(r, c).Value = (2 * Cells(r, c - 3) + Cells(r, c - 2) +
Cells(r, c - 1)) / 4
' Cells(r, c + 1).Value = Cells(r, c) / 25
' Cells(r, c + 2).Value =
Application.WorksheetFunction.VLookup(Cells(r, c + 1), _
sh2.Range("I3:J12"), 2)
' Cells(r, c + 3).Value =
Application.WorksheetFunction.VLookup(Cells(r, c + 1), _
sh2.Range("I16:J19"), 2) & " pada " & Cells(2, c - 3)
' Next c
For s = 19 To 16 Step -1
With Application.WorksheetFunction
u = 1
For c = 10 To 45 Step 7
If sh2.Cells(s, 10) = Left(Cells(r, c), Len(sh2.Cells(s, 10))) Then
If u = 1 Then
ha1 = ha1 & sh2.Cells(s, 10) & " pada " & Cells(2, c - 6) &
", "
ElseIf u > 1 Then
ha1 = ha1 & Cells(2, c - 6) & ", "
End If
Cells(r, 52).Value = ha1
u = u + 1
End If
Next c
End With
Next s
Cells(r, 52) = Left(Cells(r, 52), Len(Cells(r, 52)) - 2)
ha1 = ""
Next r
End Sub
2014-09-25 18:39 GMT+07:00 lkm jktind <[email protected]>:
> Pak .
>
> sudah saya kerjakan . dengan hasil contoh di lampiran dibawah ini .
> memang ada kelebihan spasi , dan ada 2 spasi . dan yg paling akhir pun
> ada komanya .
> baru untuk satu siswa saja .
>
> saya tidak mengurutkan data dari nilai .
> apakah juga mau di urut berdasarkan nilai angkanya ?
>
> seandainya sudah sesuai -- dan mau tinggal di pakai langsung . tinggal
> dikasih Tau saja ---
> Hasilnya mau di letakan di mana range apa ?
> datanya sangat bagus ada di mana ?
>
> Salam
>
> Lukman
>
>
>
>
>
>
>
>
> 2014-09-19 19:26 GMT+07:00 Syamsudin Rasyid [email protected]
> [belajar-excel] <[email protected]>:
>
>
>>
>> Yth. para master excell dan rekan rekan dalam group
>> Saya mengalami kesulitan dalam menggabung cell di excell, saya inginnya
>> kata-kata yang sama hanya muncul sekali. file terlampir
>>
>> --
>>
>>
>>
>
>
menggabung cell.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
