Loncat ke daftar isi utama

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:
dok 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:dok split kte 2

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

4. klik OK untuk menyelesaikan operasi. Sekarang data kolom panjang telah dipecah menjadi tiga kolom.
dok 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

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...

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.
  • 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
Really awesome...
This comment was minimized by the moderator on the site
Thank you so much!It's a big problem to copy web table to Excel.Thanks to your script I finally managed it.
This comment was minimized by the moderator on the site
Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations