Gabungkan Beberapa Kolom menjadi Satu di Excel

Penggunaan makro ini akan memungkinkan Anda untuk memindahkan, atau mengonversi, data dari beberapa baris dan kolom pada spreadsheet Microsoft Excel menjadi satu kolom.

Ubah Baris & Kolom menjadi Kolom Tunggal

Katakanlah Anda memiliki data berikut dalam spreadsheet Excel :

 480.000 600.000 720.000
520.000 650.000 780.000
300.000 375.000 450.000
432.000 540.000 648.000
260.000 325.000 390.000
304.000 380.000 456.000
340.000 425.000 510.000
304.000 380.000 456.000

Makro kami akan memungkinkan Anda untuk mengkonversi data di atas sehingga terbaca seperti ini di dokumen Anda:

 480.000
520.000
300.000
432.000
260.000
304.000
340.000
304.000
600.000
650.000
375.000
540.000
325.000
380.000
425.000
380.000
720.000
780.000
450.000
648.000
390.000
456.000
510.000
456.000 

Makro ini diprogram dengan asumsi bahwa data Anda berkisar dari baris 1 hingga baris 8 dan kolom A hingga C. Perhatikan bahwa Anda dapat mengubah makro agar cocok dengan kumpulan data Anda yang sebenarnya.

Perhatikan juga bahwa uji makro adalah makro operasi, sedangkan undo akan membatalkan hasil makro.

 Sub tes ()
Dim j As Long, k As Long, r As Range, dest As Range
j = Rentang ("A1"). Akhir (xlToRight) .Column
Untuk k = 1 Ke j
Set r = Rentang (Sel (1, k), Sel (1, k) .End (xlDown))
r. Salin
Setel dest = Cells (Rows.Count, "A"). End (xlUp) .Offset (3, 0)
dest. Pasta Khusus
Selanjutnya k
End Sub
Sub batalkan ()
Dim r As Range
Set r = Rentang ("a1"). Akhir (xlDown) .Offset (1, 0)
Set r = Rentang (r, Sel (Rows.Count, "A"). End (xlUp))
r.EntireRow. Hapus
End Sub