วิธีการเรียงคอลัมน์จากซ้ายไปขวาเป็นคอลัมน์เดียวใน Excel

สมมติว่ามีหลายคอลัมน์งานคือการเรียงคอลัมน์จากซ้ายไปขวาเป็นคอลัมน์เดียวตามภาพด้านล่างที่แสดง ยกเว้นการย้ายคอลัมน์ทีละคอลัมน์ด้วยตนเองมีเคล็ดลับในการแก้ปัญหานี้ใน Excel หรือไม่?

จัดเรียงคอลัมน์จากซ้ายไปขวาเป็นคอลัมน์เดียวด้วย VBA

จัดเรียงคอลัมน์จากซ้ายไปขวาเป็นคอลัมน์เดียวด้วย Kutools for Excel

จัดเรียงคอลัมน์จากซ้ายไปขวาเป็นคอลัมน์เดียวด้วย VBA

ใน Excel ไม่มีฟังก์ชันในตัวที่สามารถจัดการงานนี้ได้ แต่รหัส VBA สามารถช่วยคุณได้

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

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

VBA: กองคอลัมน์เป็นหนึ่งเดียว

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select 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 xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัสกล่องโต้ตอบจะปรากฏขึ้นเพื่อให้คุณเลือกคอลัมน์ที่คุณจะซ้อนกัน

4 คลิก OKเลือกเซลล์เพื่อวางผลลัพธ์

5 คลิก OK เสร็จสิ้น ตอนนี้คอลัมน์ที่เลือกถูกซ้อนกันเป็นคอลัมน์เดียว

จัดเรียงคอลัมน์จากซ้ายไปขวาเป็นคอลัมน์เดียวด้วย Kutools for Excel

ถ้าคุณมี Kutools สำหรับ Excel ติดตั้งใน Excel คุณสามารถใช้ไฟล์ Transform Range ยูทิลิตี้ในการจัดการงานนี้

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

1. เลือกคอลัมน์ที่คุณต้องการวางซ้อนคลิก Kutools > พิสัย > Transform Range.

2 ใน Transform Range โต้ตอบตรวจสอบ Range to single row ช่องทำเครื่องหมายคลิก Ok.

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

ตอนนี้คอลัมน์ถูกเปลี่ยนเป็นแถวเดียว

4. เลือกแถวเดียวกด Ctrl + C เพื่อคัดลอกและเลือกเซลล์อื่นซึ่งจะวางคอลัมน์สแต็กคลิกขวาเพื่อเลือก Transpose(T) ในเมนูบริบท

ตอนนี้แถวเดียวถูกย้ายไปยังคอลัมน์สแต็ก