Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:
Option Explicit
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
Cells(x, 5).Value = baris
End If
Next x
End Sub
2015-05-25 12:52 GMT+07:00 Nang Agus <[email protected]>:
> Mungkinkah macro begini?
> Option Explicit
> Sub kopi()
> Dim baris As Integer, tinggi As Integer, x As Integer
> Dim wadah As String
> tinggi = Range("c1000000").End(xlUp).Row
> For x = tinggi To 7 Step -1
> If Cells(x, 1).Value = 0 Then
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = ""
> Else
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = wadah
> wadah = ""
> End If
> Next x
>
> 2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis [email protected]
> [belajar-excel] <[email protected]>:
>
>>
>>
>> Dear BeExceller,
>>
>> Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya
>> biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya
>> kerepotan dalam menyatukannya menjadi 1 baris.
>> Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
>>
>> terima kasih,
>>
>> ASL
>>
>>
>>
>
>
