terima kasih bu, sudah bisa
sebelumnya saya coba googling dan nemu ini http://superuser.com/questions/359617/convert-one-column-into-multiple-rows tapi masih bingung untuk yang lebih dari satu kolom kalau contohnya seperti ini Column A 1 2 3 4 5 1 1 2 3 terus hasilnya seperti ini 1 2 3 4 5 1 1 2 3 VBA nya seperti ini Option Explicit Sub movetocolumns() Dim i As Integer, iRow As Integer Dim arrSource As Variant 'Set the first row iRow = 1 With ActiveWorkbook.Worksheets("Sheet1") 'get the data into an array from the first column arrSource = Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) 'parse every value of the array and add the data to the next column For i = 1 To (UBound(arrSource) - UBound(arrSource) Mod 3) Step 3 .Cells(iRow, 2) = arrSource(i, 1) .Cells(iRow, 3) = arrSource(i + 1, 1) .Cells(iRow, 4) = arrSource(i + 2, 1) iRow = iRow + 1 Next i 'add the remaining values Select Case UBound(arrSource) Mod 3 Case 1 'one item to add .Cells(iRow, 2) = arrSource(i, 1) Case 2 'still two items to add .Cells(iRow, 2) = arrSource(i, 1) .Cells(iRow, 3) = arrSource(i + 1, 1) Case Else 'nothing to add End Select End With End Sub kalau data saya itu seperti ini Column A Column B Column C 1 A 2010 2 A 2010 3 A 2010 4 B 2011 5 B 2011 1 B 2011 1 C 2010 2 C 2010 3 C 2010 hasil yang diharapkan seperti ini 1 2 3 A 2010 4 5 1 B 2011 1 2 3 C 2010 Pada 9 Juli 2013 10.29, Jan Raisin <miss.jan.rai...@gmail.com> menulis: > ** > > > وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ > > Coba bantu solusi ya.. tapi gak pakai VBA.. hanya formula biasa dengan 1 > kolom bantu > file terlampir > > Jan mohon dibukakan pintu maaf atas segala salah kata selama kurang lebih > 1 tahun bergabung dengan milis ini, > insya ALLAH mulai besok Jan akan menjalankan shaum Ramadhan, semoga ibadah > kita diterima ALLAH SWT. > > اَمِين يَا رَبَّ الْعَالَمِيْن > > وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ > > -Miss Jan Raisin- > > > - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke > belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi > member milis; > - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta > dengan orang-orang yang sabar QS 2:153; > - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang > memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang > ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari > Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga > memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu > bisa on line setiap saat; > - Semoga semangat berbagi dan membantu semakin meningkat di kalangan > Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. > اَمِين يَا رَبَّ الْعَالَمِيْن > > > > Pada 8 Juli 2013 16.10, him mah <himmah....@gmail.com> menulis: > >> ** >> >> >> Assalamu'alaikum Wr. Wb. >> >> Saya Punya database yang sebenarnya sudah teratur, yang terdiri dari dua >> kolom misal kolom ISI dan JUDUL. tiap satu data terdiri dari 3 baris >> tersusun kebawah, jadi kalau ada 3 data jumlah barisnya ada 9 >> >> misal database awalnya seperti ini >> >> >> ISI JUDUL 1 P-A 7317009090 P-B 04-JAN-11 P-C 1 P-A 7219130000 P-B >> 05-JAN-11 P-C 2 P-A 7219130000 P-B 05-JAN-11 P-C >> kemudian database tersebut diubah menjadi seperti ini >> >> P-A P-B P-C 1 7317009090 04-JAN-11 1 7219130000 05-JAN-11 2 >> 7219130000 05-JAN-11 >> kira-kira kalau ingin hasil seperti diatas, VBA nya seperti Apa ya >> >> terima kasih >> >> _ >> > >
