วิธีการรวมสองคอลัมน์เข้าด้วยกันโดยมีค่าสลับกันใน 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 Sub3 กด F5 คีย์และเลือกสองคอลัมน์ที่คุณต้องการรวมเข้ากับกล่องโต้ตอบ popping
4 คลิก OKในกล่องโต้ตอบที่สองเลือกเซลล์เพื่อวางผลลัพธ์
5 คลิก OK. ตอนนี้คอลัมน์สองคอลัมน์ที่เลือกถูกรวมเข้าเป็นหนึ่งเดียวและมีค่าทางเลือกอื่น
ผสานสองคอลัมน์เข้าด้วยกันโดยมีค่าสลับกันโดย Kutools for Excel
ถ้าคุณมี Kutools สำหรับ Excel ติดตั้งใน Excel ซึ่งเป็นไฟล์ Transform Range ยูทิลิตี้สามารถแก้ปัญหานี้ได้ด้วย 3 ขั้นตอนง่ายๆ
| Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น |
หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้:(ดาวน์โหลด Kutools for Excel ฟรีทันที!)
1. เลือกคอลัมน์ (สองคอลัมน์ขึ้นไป) ที่คุณต้องการรวมคลิก Kutools > Transform Range.
2 ใน Transform Range โต้ตอบตรวจสอบ Range to single column แล้วคลิก Ok.
3. เลือกเซลล์เพื่อวางผลลัพธ์ในกล่องโต้ตอบ popping คลิก OK.
ตอนนี้คอลัมน์ได้ถูกรวมเข้าด้วยกันและค่าอยู่ในลำดับอื่น
ช่วงการเปลี่ยนภาพ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
