Bagaimana cara menggabungkan dua kolom menjadi satu dengan nilai bolak-balik di Excel?
Berikut adalah dua kolom di lembar kerja, tugas apa untuk menggabungkan dua kolom ini menjadi satu kolom dengan alternatif nilai seperti gambar di bawah ini. Bagaimana Anda dapat dengan cepat menangani pekerjaan tanpa menyusun ulang satu per satu?
Gabungkan dua kolom menjadi satu dengan nilai bergantian dengan kode VBA
Gabungkan dua kolom menjadi satu dengan nilai bergantian oleh Kutools for Excel
Gabungkan dua kolom menjadi satu dengan nilai bergantian dengan kode VBA
Untuk menggabungkan dua kolom menjadi satu dengan nilai bolak-balik, tidak ada fungsi bawaan kecuali kode VBA di Excel.
1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela. Klik Menyisipkan > Modul untuk membuat modul kosong baru.
2. Salin dan tempel kode di bawah ini ke modul.
VBA: Gabungkan dua kolom menjadi satu dengan alternatif nilai
Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNum = 1 To xSRg.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Item(xFNum).Value
xI = xI + 1
Next xFNum
Application.ScreenUpdating = True
End Sub
3. tekan F5 kunci dan pilih dua kolom yang ingin Anda gabungkan ke dialog popping.
4. klik OK, di dialog kedua, pilih sel untuk menempatkan hasilnya.
5. klik OK. Sekarang dua kolom yang dipilih telah digabungkan menjadi satu, dan dengan alternatif nilai.
Gabungkan dua kolom menjadi satu dengan nilai bergantian oleh Kutools for Excel
Jika Anda memiliki Kutools untuk Excel diinstal di Excel, itu Transform Range utilitas dapat menyelesaikan pekerjaan ini hanya dengan 3 langkah mudah.
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 kolom (dua atau lebih) yang ingin Anda gabungkan, klik Kutools > Transform Range.
2. Dalam Transform Range dialog, periksa Range to single column opsi, dan klik Ok.
3. Pilih sel untuk menempatkan hasil dalam dialog popping. Klik OK.
Sekarang kolom telah digabungkan menjadi satu dan nilainya berada dalam urutan alternatif.
Rentang Transpos
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!