Note: The other languages of the website are Google-translated. Back to English
English English

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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (3)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Sebagai solusinya, Anda dapat melakukan hal berikut: Menggunakan contoh di atas, 1. Ketik "=a2" di c2 dan "=a3" di d3. 2. Sekarang pilih c2 sampai d3. 3. Seret gagang isian sejajar dengan semua data. 4. Sekarang hapus sel a2 dan geser sel ke atas. 5. Sekarang kita perlu mengonversi hasil rumus ke nilai yang dihitung. Itu mudah dilakukan dengan menyalin semua data termasuk baris kosong dan menempelkan nilainya tepat di atasnya. 6. Sekarang Anda cukup mengurutkan kolom mana pun menurut abjad untuk menampilkan semua data.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana melakukan kebalikan dari ini? Dapatkan info dua kolom dalam satu baris?
Komentar ini diminimalkan oleh moderator di situs
Hai, Jas,
Untuk melakukan kebalikannya, untuk mengonversi data dua kolom menjadi satu kolom, Anda harus menerapkan kode VBA di bawah ini:

Sub ConvertRangeToColumn()
Rentang Redup1 Sebagai Rentang, Rentang2 Sebagai Rentang, Rng Sebagai Rentang
Redupkan rowIndex Sebagai Integer
xTitleId = "KutoolsforExcel"
Atur Range1 = Application.Selection
Atur Range1 = Application.InputBox("Rentang Sumber:", xTitleId, Range1.Address, Jenis:=8)
Atur Range2 = Application.InputBox("Konversikan ke (sel tunggal):", xTitleId, Ketik:=8)
barisIndeks = 0
Application.ScreenUpdating = Salah
Untuk Setiap Rng Dalam Rentang1.Baris
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
indeksbaris = indeksbaris + Rng.Kolom.Hitung
Next
Application.CutCopyMode = Salah
Application.ScreenUpdating = Benar
End Sub

Silakan dicoba, semoga bisa membantu Anda!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan