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 x2015-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 > > >
Copy of 3 baris menjadi 1 baris.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
