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

Bagaimana cara membagi kolom panjang menjadi beberapa kolom di Excel?

doc dibagi menjadi beberapa kolom 4
Jika Anda memiliki data kolom yang panjang di Excel yang akan merepotkan saat melihatnya. Tetapi sekarang jika Anda dapat membagi daftar yang begitu panjang menjadi beberapa kolom di Excel, itu akan membuat tampilan dengan nyaman.
Pisahkan kolom panjang menjadi beberapa kolom dengan VBA
Pisahkan kolom panjang menjadi beberapa kolom dengan Kutools for Excel ide bagus3

panah gelembung kanan biru Pisahkan kolom panjang menjadi beberapa kolom dengan VBA

1. tekan Alt + F11 kunci bersama untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul dan salin kode VBA berikut ke jendela yang muncul.

VBA: Pisahkan kolom panjang menjadi beberapa kolom.

Sub SplitColumn()
	'Updateby20141106
	Dim rng As Range
	Dim InputRng As Range
	Dim OutRng As Range
	Dim xRow As Integer
	Dim xCol As Integer
	Dim xArr As Variant
	xTitleId     = "KutoolsforExcel"
	Set InputRng = Application.Selection
	Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
	xRow         = Application.InputBox("Rows :", xTitleId)
	Set OutRng   = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
	Set InputRng = InputRng.Columns(1)
	xCol         = InputRng.Cells.Count / xRow
	ReDim xArr(1 To xRow, 1 To xCol + 1)
	For i = 0 To InputRng.Cells.Count - 1
		xValue = InputRng.Cells(i + 1)
		iRow = i Mod xRow
		iCol = VBA.Int(i / xRow)
		xArr(iRow + 1, iCol + 1) = xValue
	Next
	OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub

3. klik Run tombol atau tekan F5 kunci untuk menjalankan VBA, dan sebuah dialog muncul untuk memilih daftar data, lalu klik OK untuk menentukan berapa banyak baris dalam satu kolom yang Anda butuhkan di dialog berikutnya, lalu klik OK dan pilih sel untuk menampilkan hasilnya. Lihat tangkapan layar:

doc-split-to-multiple-column-1
doc-panah
doc-split-to-multiple-column-2
doc-panah
doc-split-to-multiple-column-3


4. klik OK, lalu Anda bisa melihat kolom panjang dibagi menjadi beberapa kolom dan setiap kolom memiliki 15 sel.
doc-split-to-multiple-column-4


panah gelembung kanan biru Pisahkan kolom panjang menjadi beberapa kolom dengan Kutools for Excel

Mungkin sebagian dari Anda tidak suka menggunakan kode VBA, untungnya Anda bisa menggunakan Transformasi Rentang kegunaan Kutools untuk Excel untuk dengan cepat dan mudah mengubah kolom yang panjang menjadi jumlah kolom yang tetap.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:(Unduh Gratis Kutools untuk Excel Sekarang!)

1. Pilih data kolom yang ingin Anda pisahkan, lalu klik Kutools > Jarak > Transformasi Rentang. Lihat tangkapan layar:
doc split kte 1

2. Pada dialog yang muncul, periksa Kolom tunggal untuk rentang opsi, lalu centang Nilai tetap opsi dan ketik jumlah kolom yang Anda butuhkan ke dalam kotak teks. Lihat tangkapan layar:doc split kte 2

3. klik Ok dan pilih satu sel untuk mengeluarkan data yang dipisahkan. Lihat tangkapan layar:
doc split kte 3

4. klik OK untuk menyelesaikan operasi. Sekarang data kolom panjang telah dipecah menjadi tiga kolom.
doc split kte 4

Apakah lebih mudah daripada kode VBA? Dengan tRansform Range utilitas, Anda dapat mengonversi baris ke rentang, rentang ke baris atau satu kolom.

panah gelembung kanan biru Ubah urutan kolom / baris tunggal menjadi rentang atau sebaliknya



Pisahkan satu sel dengan cepat menjadi kolom atau baris berdasarkan pembatas

Di Excel, untuk memisahkan sel menjadi kolom membosankan dengan panduan langkah demi langkah. Tetapi dengan Kutools untuk Excel's Pisahkan Sel utilitas, Anda dapat: 1, mengubah satu sel menjadi kolom atau baris berdasarkan pembatas; 2, ubah string menjadi teks dan angka; 3, ubah string berdasarkan lebar tertentu, dengan klik.  Klik untuk uji coba gratis 30 hari berfitur lengkap!
doc membagi sel
 
Kutools for Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari.

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
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak! Ini masalah besar untuk menyalin tabel web ke Excel. Berkat skrip Anda, saya akhirnya berhasil.
Komentar ini diminimalkan oleh moderator di situs
Benar-benar luar biasa...
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan