วิธีการรวมสองคอลัมน์เข้าด้วยกันโดยมีค่าสลับกันใน Excel

นี่คือสองคอลัมน์ในเวิร์กชีต งานคือการรวมสองคอลัมน์นี้เป็นหนึ่งเดียวโดยมีค่าสลับกันตามที่แสดงในภาพหน้าจอด้านล่าง คุณจะจัดการงานนี้ได้อย่างรวดเร็วโดยไม่ต้องเรียงลำดับใหม่ทีละคอลัมน์ได้อย่างไร

ผสานสองคอลัมน์เข้าด้วยกันโดยมีค่าสลับกันด้วยรหัส VBA

ผสานสองคอลัมน์เข้าด้วยกันโดยมีค่าสลับกันโดย Kutools for Excel

ผสานสองคอลัมน์เข้าด้วยกันโดยมีค่าสลับกันด้วยรหัส VBA

ในการผสานสองคอลัมน์เข้าด้วยกันโดยมีค่าสลับกันจะไม่มีฟังก์ชันในตัวยกเว้นโค้ด VBA ใน Excel

1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อสร้างโมดูลเปล่าใหม่

2. คัดลอกและวางโค้ดด้านล่างลงในโมดูล

VBA: รวมสองคอลัมน์เข้าด้วยกันด้วยทางเลือกที่คุ้มค่า

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 กด F5 คีย์และเลือกสองคอลัมน์ที่คุณต้องการรวมเข้ากับกล่องโต้ตอบ popping

4 คลิก OKในกล่องโต้ตอบที่สองเลือกเซลล์เพื่อวางผลลัพธ์

5 คลิก OKตอนนี้คอลัมน์ทั้งสองที่เลือกไว้ได้รับการรวมเป็นหนึ่งโดยมีค่าสลับกัน

ผสานสองคอลัมน์เข้าด้วยกันโดยมีค่าสลับกันโดย Kutools for Excel

ถ้าคุณมี Kutools สำหรับ Excel ติดตั้งใน Excel ซึ่งเป็นไฟล์ Transform Range ยูทิลิตี้สามารถทำภารกิจนี้ให้สำเร็จได้โดยง่ายเพียงสามขั้นตอน

1. เลือกคอลัมน์ (สองคอลัมน์ขึ้นไป) ที่คุณต้องการรวมคลิก Kutools > Transform Range.

2 ใน Transform Range โต้ตอบตรวจสอบ Range to single column แล้วคลิก Ok.

3. เลือกเซลล์เพื่อวางผลลัพธ์ในกล่องโต้ตอบ popping คลิก OK.

ตอนนี้คอลัมน์ได้รับการรวมเป็นหนึ่งแล้ว และค่าจะสลับกันระหว่างสองคอลัมน์

การสาธิต: การเปลี่ยนช่วงโดยใช้ Kutools สำหรับ Excel