Bagaimana cara membagi kolom panjang menjadi beberapa kolom di Excel?
Pisahkan kolom panjang menjadi beberapa kolom dengan VBA
Pisahkan kolom panjang menjadi beberapa kolom dengan Kutools for Excel
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:
 |
 |
 |
|
 |
4. klik OK, lalu Anda bisa melihat kolom panjang dibagi menjadi beberapa kolom dan setiap kolom memiliki 15 sel.
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:锛圲nduh Gratis Kutools untuk Excel Sekarang!)
1. Pilih data kolom yang ingin Anda pisahkan, lalu klik Kutools > Jarak > Transformasi Rentang. Lihat tangkapan layar:
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:
3. klik Ok dan pilih satu sel untuk mengeluarkan data yang dipisahkan. Lihat tangkapan layar:
4. klik OK untuk menyelesaikan operasi. Sekarang data kolom panjang telah dipecah menjadi tiga kolom.
Apakah lebih mudah daripada kode VBA? Dengan tRansform Range utilitas, Anda dapat mengonversi baris ke rentang, rentang ke baris atau satu kolom.
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! |
 |
| Kutools for Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
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 Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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!
