Loncat ke daftar isi utama

Bagaimana cara membagi kolom setiap baris lainnya di Excel?

doc membagi setiap baris lainnya 1

Misalnya, saya memiliki daftar data yang panjang, dan sekarang, saya ingin membagi kolom menjadi dua daftar secara merata oleh setiap baris lainnya seperti gambar berikut yang ditampilkan. Apakah ada cara yang baik untuk menangani tugas ini di Excel?

Pisahkan kolom setiap baris lainnya dengan Rumus

Pisahkan kolom setiap baris lainnya dengan kode VBA

Pisahkan kolom setiap baris lainnya dengan Kutools for Excel


panah gelembung kanan biru Pisahkan kolom setiap baris lainnya dengan Rumus

Rumus berikut dapat membantu Anda dengan cepat membagi kolom menjadi dua kolom dengan setiap baris lainnya, lakukan hal berikut:

1. Masukkan rumus ini ke dalam sel kosong, C2, misalnya, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), lihat tangkapan layar :

doc membagi setiap baris lainnya 2

2. Kemudian seret gagang isian ke bawah hingga kesalahan ditampilkan di sel, lihat tangkapan layar:

doc membagi setiap baris lainnya 3

3. Lalu masukkan rumus lain ke sel D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2), dan seret gagang isian ke sel sampai nilai kesalahan muncul, dan nilai kolom telah dipecah menjadi dua kolom setiap baris lainnya, lihat tangkapan layar:

doc membagi setiap baris lainnya 4


panah gelembung kanan biru Pisahkan kolom setiap baris lainnya dengan kode VBA

Jika Anda tertarik dengan kode VBA, di sini, saya dapat berbicara tentang kode untuk Anda mengatasi masalah ini.

1. Tahan ALT + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Pisahkan kolom menjadi dua kolom setiap baris lainnya

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda pisahkan, lihat tangkapan layar:

doc membagi setiap baris lainnya 5

4. Dan klik OK, kotak prompt lain muncul untuk membiarkan Anda memilih sel untuk meletakkan hasilnya, lihat tangkapan layar:

doc membagi setiap baris lainnya 6

5. Lalu klik OK, dan kolom telah dipisahkan menjadi dua kolom oleh setiap baris lainnya. Lihat tangkapan layar:

doc membagi setiap baris lainnya 7


panah gelembung kanan biru Pisahkan kolom setiap baris lainnya dengan Kutools for Excel

Jika Anda ingin mempelajari lebih banyak hal baru, saya dapat merekomendasikan alat yang ampuh -Kutools untuk Excel, Dengan yang Transformasi Rentang utilitas, Anda dapat dengan cepat mengonversi satu baris atau kolom menjadi satu rentang sel dan sebaliknya.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari

Setelah menginstal Kutools untuk Excel, lakukan hal berikut :( Unduh Gratis Kutools untuk Excel Sekarang )

1. Pilih data kolom yang ingin Anda pisahkan menjadi dua kolom dengan setiap baris lainnya.

2. Lalu klik Kutools > Jarak > Transformasi Rentang, lihat tangkapan layar:

3. di Transformasi Rentang kotak dialog, pilih Kolom tunggal untuk rentang bawah Jenis transformasi, Lalu pilih Nilai tetap dan masuk 2 ke dalam kotak di Baris per rekor bagian, lihat tangkapan layar:

doc membagi setiap baris lainnya 9

4. Lalu klik Ok tombol, dan kotak prompt akan muncul untuk mengingatkan Anda memilih sel di mana Anda ingin menampilkan hasilnya, lihat tangkapan layar:

doc membagi setiap baris lainnya 10

5. Klik OK, data daftar telah dipecah menjadi dua kolom setiap baris lainnya.

Klik untuk mengetahui lebih banyak tentang utilitas Transform Range ini.

Unduh Gratis Kutools untuk Excel Sekarang

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to do the opposite of this? Get two column info in one row ?
This comment was minimized by the moderator on the site
Hi, Jas,
To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
As a workaround, you can do the following: Using the above example, 1. Type "=a2" in c2 and "=a3" in d3. 2. Now select c2 through d3. 3. Drag the fill handle parallel to all the data. 4. Now delete cell a2 and shift cells up. 5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself. 6. Now you can simply sort any of the column alphabetically to bring all the data up.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations