Bagaimana cara membagi dengan pembatas dan mentranspos sel di Excel?
Pada artikel ini, saya memperkenalkan cara-cara untuk membagi rentang dengan pembatas tertentu dan kemudian mengubahnya di Excel seperti gambar di bawah ini. Jika Anda tertarik dengan tugas ini, silakan buka detail di bawah ini.
Pisahkan dan ubah urutannya dengan VBA
Pisahkan dan ubah urutannya dengan Kutools for Excel
Pisahkan dan ubah urutannya dengan VBA
Tidak ada cara langsung untuk membagi dan mentranspos data dengan pembatas tertentu, tetapi saya dapat memperkenalkan kode VBA untuk membantu Anda menyelesaikan masalah ini dengan cepat.1. tekan Alt + F11 kunci untuk ditampilkan Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempel kode di bawah ini ke yang baru Modul jendela.
VBA: Split dan Transpose
Sub Vertical()
'UpdatebyExtendoffice20161125
Dim i As Long, strTxt As String
Dim startP As Range
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
i = 1
Application.ScreenUpdating = False
For Each yRg In xRg
If i = 1 Then
strTxt = yRg.Text
i = 2
Else
strTxt = strTxt & "," & yRg.Text
End If
Next
Application.ScreenUpdating = True
Set startP = Application.InputBox _
(Prompt:="paste range...", _
Title:="Kutools For Excel", Type:=8)
ary = Split(strTxt, ",")
i = 1
Application.ScreenUpdating = False
For Each a In ary
startP(i, 1).Value = a
i = i + 1
Next a
Application.ScreenUpdating = True
End Sub
3. tekan F5 kunci untuk menjalankan kode, sebuah dialog muncul bagi Anda untuk memilih rentang untuk dipisahkan dan diubah urutannya.
4. klik OK. Sebuah dialog muncul untuk memilih lokasi untuk menempatkan data.
5. klik OK, dan pilihan telah dipisahkan dan dialihkan dengan koma.
Pisahkan dan ubah urutannya dengan Kutools for Excel
Dengan Kutools untuk Excel, Anda dapat menerapkannya Pisahkan Sel pertama-tama untuk memisahkan sel dengan pembatas, lalu terapkan Transformasi Rentang utilitas untuk mengubah sel menjadi satu kolom.
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 sel yang ingin Anda pisahkan, dan klik Kutools > Gabungkan & Pisahkan > Pisahkan Sel. Lihat tangkapan layar:
2. Dalam Pisahkan Sel dialog, periksa Pisahkan ke Kolom opsi, lalu tentukan pemisah yang ingin Anda pisahkan berdasarkan, klik Ok. Dan pilih sel kosong untuk menempatkan hasilnya di detik Pisahkan Sel dialog. Lihat tangkapan layar:
3. klik OK, lalu sel telah dipecah menjadi kolom, lalu klik Kutools > Jarak > Transformasi Rentang. Lihat tangkapan layar:
4. Dalam Transformasi Rentang dialog, periksa Rentang ke satu kolomklik Ok, dan pilih sel untuk menempatkan hasilnya. Lihat tangkapan layar:
5. klik OK, sekarang kisaran telah diubah menjadi satu kolom.
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!