Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

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

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

เปลี่ยนข้อมูลจากคอลัมน์เป็นเซลล์เดียวด้วย User Defined Function

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


ยกเว้นฟังก์ชัน Concatenate เพื่อรวมรายการค่าของเซลล์คุณสามารถใช้รหัส VBA ต่อไปนี้เพื่อให้ได้ผลลัพธ์โดยเร็วที่สุด

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

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

รหัส VBA: เปลี่ยนข้อมูลจากคอลัมน์เป็นเซลล์เดียว

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานและป้อนสูตรนี้: = ทรานสโพสเรนจ์ (A1: A10) ลงในเซลล์ว่างเพื่อใส่ผลลัพธ์แล้วกด เข้าสู่ คุณจะได้รับค่าเซลล์ทั้งหมดในคอลัมน์ที่อยู่ในเซลล์เดียวดูภาพหน้าจอ:

doc เปลี่ยนเซลล์เป็นเซลล์เดียว 1

หมายเหตุ: ในโค้ดด้านบน A1: A10 คือช่วงรายการที่คุณต้องการเปลี่ยนเป็นเซลล์เดียวและคุณยังสามารถแยกเนื้อหาที่ผสานกับตัวคั่นอื่น ๆ เช่นลูกน้ำ, เส้นประ, ช่องว่าง ฯลฯ โดยเพียงแค่เปลี่ยนลูกน้ำในสคริปต์ xStr = xStr & xCell.Value & ",".


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

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

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

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

2. คลิก Kutools > ผสานและแยกรวมแถวคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูลดูภาพหน้าจอ:

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

doc เปลี่ยนเซลล์เป็นเซลล์เดียว 3

4. จากนั้นคลิก Ok or ใช้ และคุณจะได้รับผลลัพธ์ต่อไปนี้ตามที่คุณต้องการ:

doc เปลี่ยนเซลล์เป็นเซลล์เดียว 4 2 doc เปลี่ยนเซลล์เป็นเซลล์เดียว 5

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


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

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

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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sophie · 3 years ago
    Hi,

    Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

    Thanks in advance!

    Function transposeRange(Rg As Range)
    'updateby Extendoffice 20151207
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
    If Not IsEmpty(xCell.Value) Then
    xStr = xStr & xCell.Value & ","
    End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
    End Function
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years ago
      Hello,Sophie,
      Could you give an example for your need, you can insert a screenshot here.
  • To post as a guest, your comment is unpublished.
    Eric · 3 years ago
    Thanks, this was very helpful.