ไปยังเนื้อหาหลัก

วิธีรวมหลายคอลัมน์เป็นรายการเดียวใน Excel

ในการรวมหรือรวมหลายคอลัมน์เป็นรายการยาว ๆ โดยปกติคุณสามารถคัดลอกและวางข้อมูลคอลัมน์ทีละคอลัมน์ในคอลัมน์ที่ระบุได้ แต่ที่นี่ฉันสามารถแนะนำเคล็ดลับง่ายๆในการแก้ปัญหานี้ใน Excel

รวมหลายคอลัมน์ไว้ในรายการเดียวด้วยรหัส VBA

รวมหลายคอลัมน์ไว้ในรายการเดียวด้วย Kutools for Excel

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

1. ค้างไว้ Alt + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: รวมหรือรวมหลายคอลัมน์ไว้ในรายการเดียว

Sub CombineColumns1()
'updateby Extendoffice
    Dim xRng As Range
    Dim i As Integer
    Dim xLastRow As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    xLastRow = xRng.Columns(1).Rows.Count + 1
    For i = 2 To xRng.Columns.Count
        Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
        ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
        xLastRow = xLastRow + xRng.Columns(i).Rows.Count
    Next
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการรวมเป็นคอลัมน์เดียวดูภาพหน้าจอ:

doc รวมคอลัมน์เป็นหนึ่งเดียว 1

4. จากนั้นคลิก OK และคอลัมน์ที่เลือกได้ถูกรวมเป็นคอลัมน์เดียวตามภาพหน้าจอต่อไปนี้ที่แสดง:

doc รวมคอลัมน์เป็นหนึ่งเดียว 2 2 doc รวมคอลัมน์เป็นหนึ่งเดียว 3

เคล็ดลับ: หลังจากเรียกใช้ VBA นี้ข้อมูลดั้งเดิมของช่วงจะถูกล้างคุณควรคัดลอกและบันทึกไว้ในตำแหน่งอื่นก่อน

ถ้าคุณได้ติดตั้ง Kutools สำหรับ Excelมัน ช่วงการแปลง ยูทิลิตี้สามารถช่วยคุณรวมหลายคอลัมน์เป็นคอลัมน์เดียวหรือแถวเดียว

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน.
ไปที่ดาวน์โหลด
ทดลองใช้ฟรี 30 วันการซื้อ
เพย์พาล/มายคอมเมิร์ซ

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. เลือกข้อมูลคอลัมน์ที่คุณต้องการรวมเป็นรายการเดียว

2. จากนั้นคลิก Kutools > พิสัย > ช่วงการแปลงดูภาพหน้าจอ:

3. ใน ช่วงการแปลง ใหเลือก ช่วงเป็นคอลัมน์เดียว แล้วคลิก Ok ปุ่มดูภาพหน้าจอ:

doc รวมคอลัมน์เป็นหนึ่งเดียว 5

4. ในสิ่งต่อไปนี้โผล่ออกมา ช่วงการแปลง คลิกเซลล์ที่คุณต้องการส่งออกผลลัพธ์ดูภาพหน้าจอ:

doc รวมคอลัมน์เป็นหนึ่งเดียว 6

5. จากนั้นคลิก OK คอลัมน์ที่คุณเลือกไว้รวมกันเป็นคอลัมน์เดียวในตำแหน่งที่คุณต้องการ ดูภาพหน้าจอ:

doc รวมคอลัมน์เป็นหนึ่งเดียว 7

ดาวน์โหลดและทดลองใช้ฟรี Kutools สำหรับ Excel ตอนนี้!

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (7)
No ratings yet. Be the first to rate!
Kevin
Kevin
This comment was minimized by the moderator on the site
This works great if you need to combine all of one column, then move to the next column, etc. What if you need to combine them in the row order? Such as...
A1
B1
A2
B2
Reply
0
0
skyyang
skyyang     Kevin
This comment was minimized by the moderator on the site
Hello, Kevin,
To combine the data from rows into one single column based on the row order, please apply the following code:
Sub ConvertRangeToColumn()
'Updateby Extendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
Денис
Денис
This comment was minimized by the moderator on the site
Доброго вечера, благодарю Вас за помощь, Вы сэкономили часы времени. Спасибо, желаю Вам счастья!
Reply
0
0
skyyang
skyyang     Денис
This comment was minimized by the moderator on the site
Hello,
Glad it can help you! 😀
Reply
Report
0
0
Мария
Мария
This comment was minimized by the moderator on the site
Спасибо большое, все сработало!!!
Reply
0
0
Aster
Aster
This comment was minimized by the moderator on the site
This has been very helpful. It saved me hours of copying and pasting columns from A to ANY.
Reply
Report
0
0
Mike
Mike
This comment was minimized by the moderator on the site
This worked perfect and was very helpful! Thanks!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations