Dear P. Andre,
Coba makro terlampir.
Sub Extract()
Application.ScreenUpdating = False
Set Sumber = Range("a1").CurrentRegion 'mencari banyaknya data
Sumber.Sort Range("a1"), xlAscending
banyak = Sumber.Rows.Count
tempcari = 1 'temporary untuk copy range
tempcolumn = 1 'temporary untuk paste column
For i = 1 To banyak
If Left(Cells(i, 1), 11) <> Left(Cells(i + 1, 1), 11) Then 'pengecekan
dengan cells berikutnya
Range(Cells(tempcari, 1), Cells(i, 1)).Copy
Sheets("SheetHasil").Select
Cells(1, tempcolumn).Select
ActiveCell.PasteSpecial xlPasteValuesAndNumberFormats
Sheets("DataAsal").Select
tempcolumn = tempcolumn + 1
tempcari = i + 1
End If
Next i
Application.ScreenUpdating = True
End Sub
Regards,
Arie
--- On Fri, 2/3/12, andri apriyadi <[email protected]> wrote:
From: andri apriyadi <[email protected]>
Subject: [belajar-excel] Makro mengekstraksi data vertikal menjadi data
horizontal
To: [email protected]
Date: Friday, February 3, 2012, 12:34 AM
Salam Para Pakar Excel
Jika dengan menggunakan tombol Makro, bagaimana mengekstraksi deretan data
vertikal menjadi data berbentuk horizontal (menyamping) sesuai dengan
kategorinya?
Contoh kasus ada dalam lampiran. Terima Kasih atas bantuannya.
Regards
Andree
