Bagaimana cara membagi kolom setiap baris lainnya di Excel?
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 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 ：
2. Kemudian seret gagang isian ke bawah hingga kesalahan ditampilkan di sel, lihat tangkapan layar:
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:
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:
4. Dan klik OK, kotak prompt lain muncul untuk membiarkan Anda memilih sel untuk meletakkan hasilnya, lihat tangkapan layar:
5. Lalu klik OK, dan kolom telah dipisahkan menjadi dua kolom oleh setiap baris lainnya. Lihat tangkapan layar:
Pisahkan kolom setiap baris lainnya Kutools for Excel
Jika Anda ingin mempelajari lebih banyak hal baru, saya dapat merekomendasikan alat yang ampuh -Kutools for Excel, Dengan yang Transformasi Rentang utilitas, Anda dapat dengan cepat mengonversi satu baris atau kolom menjadi satu rentang sel dan sebaliknya.
| Kutools for Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Setelah menginstal Kutools for Excel, lakukan hal berikut :( Free download Kutools for 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:
4. Lalu klik Ok tombol, dan kotak prompt akan muncul untuk mengingatkan Anda memilih sel di mana Anda ingin menampilkan hasilnya, lihat tangkapan layar:
5. Klik OK, data daftar telah dipecah menjadi dua kolom setiap baris lainnya.
Klik untuk mengetahui lebih banyak tentang utilitas Transform Range ini.
Free download Kutools for Excel Sekarang
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
