Note: The other languages of the website are Google-translated. Back to English

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

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

จัดเรียงคอลัมน์จากซ้ายไปขวาเป็นคอลัมน์เดียวด้วย 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

doc stack คอลัมน์จากซ้ายไปขวา 2

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

4 คลิก OKเลือกเซลล์เพื่อวางผลลัพธ์
doc stack คอลัมน์จากซ้ายไปขวา 4

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


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

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

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้:(ดาวน์โหลด Kutools for Excel ฟรีทันที!)

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

2 ใน Transform Range โต้ตอบตรวจสอบ Range to single row ช่องทำเครื่องหมายคลิก Ok.
doc stack คอลัมน์จากซ้ายไปขวา 7

3. ในกล่องโต้ตอบ popping เลือกเซลล์เพื่อวางผลลัพธ์คลิก OK.
doc stack คอลัมน์จากซ้ายไปขวา 8

ตอนนี้คอลัมน์ถูกเปลี่ยนเป็นแถวเดียว
doc stack คอลัมน์จากซ้ายไปขวา 9

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

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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (3)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คำโกงที่จะทำเช่นเดียวกัน:
- คัดลอกแถวและบรรทัดทั้งหมดใน Excel
- วางโดยไม่ใช้ Word doc
- ctrl + h (ค้นหาและแทนที่)
- คัดลอกช่องว่างการจัดทำตารางระหว่างสองแถว
- วางลงในแถบค้นหา
- แทนที่ด้วยแท็บด้วยการขึ้นบรรทัดใหม่ "^l"

เซลล์ทั้งหมดของคุณอยู่ในคอลัมน์ในเอกสาร Word ของคุณ
คัดลอกวางลงใน Excel: เสร็จแล้ว!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะขอบคุณคุณตลอดไป ขอบคุณมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่มีใครรู้วิธีแทนที่ / ฮาร์ดโค้ดคอลัมน์ (ไม่เปิดกล่องข้อความสำหรับการเลือก) หรือไม่ ดังนั้นตั้งค่า XSRg ให้เป็นดังนี้: Set xSRg = Range("A1")).CurrentRegion.Select(ซึ่งใช้งานไม่ได้เพราะ ของประเภทไม่ตรงกัน) ขอบคุณ
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ