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