บทช่วยสอน Excel: รวมคอลัมน์ แถว เซลล์

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

ในบทช่วยสอนนี้ ฉันสร้างตัวอย่างเพื่ออธิบายวิธีการต่างๆ คุณสามารถเปลี่ยนข้อมูลอ้างอิงที่คุณต้องการได้เมื่อคุณใช้โค้ดหรือสูตร VBA ด้านล่าง หรือคุณสามารถดาวน์โหลดตัวอย่างเพื่อลองใช้วิธีต่างๆ ได้โดยตรง

คลิกเพื่อดาวน์โหลดไฟล์ตัวอย่าง

1 รวมคอลัมน์/แถวเป็นเซลล์เดียว

การรวมคอลัมน์หรือแถวต่างๆ ไว้ในเซลล์เดียวและคั่นผลลัพธ์ด้วยเครื่องหมายจุลภาค ช่องว่าง หรือตัวคั่นอื่นๆ ตามภาพหน้าจอด้านล่างนี้ มีการใช้กันอย่างแพร่หลายที่สุดใน Excel

รวมคอลัมน์เป็นเซลล์เดียว

รวมแถวเป็นเซลล์เดียว

1.11 การใช้เครื่องหมายและสัญลักษณ์ (&)

ใน Excel เครื่องหมาย & มักใช้เพื่อรวมข้อความ

ตัวอย่าง: รวมชื่อ (คอลัมน์ A) และนามสกุล (คอลัมน์ B) เป็นชื่อเต็ม

เลือกเซลล์ที่คุณต้องการวางผลลัพธ์ที่รวมกัน จากนั้นพิมพ์สูตรดังนี้：

=A2&" "&B2

 ในสูตร & ใช้เพื่อเชื่อมข้อความ A2 และ B2 เป็นข้อความสองข้อความที่ต้องรวมกัน " " เป็นตัวคั่น (ช่องว่าง) ที่คั่นข้อความทั้งสองในเซลล์ผลลัพธ์ หากคุณต้องการใช้เครื่องหมายจุลภาค เป็นตัวคั่น เพียงพิมพ์เครื่องหมายจุลภาคที่ล้อมรอบด้วยอัญประกาศคู่ ","

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์ที่รวมกัน จากนั้นลากขอบจับป้อนอัตโนมัติลงเพื่อให้ได้ผลลัพธ์ที่รวมกัน

ตัวอย่าง: รวมหมายเลข (แถว 15) และชื่อ (แถว 16) เป็นหนึ่งเซลล์

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

1.12 การใช้ฟังก์ชัน CONCATENATE (Excel 2016 หรือเวอร์ชันก่อนหน้า)

หากคุณกำลังใช้ Excel 2016 หรือเวอร์ชันก่อนหน้า ฟังก์ชัน CONCATENATE สามารถช่วยคุณได้

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน CONCATENATE โปรดไปที่: CONCATENATE.

ตัวอย่าง: รวมชื่อ (คอลัมน์ F) และที่อยู่ (คอลัมน์ G) เป็นหนึ่งคอลัมน์

เลือกเซลล์ที่คุณต้องการวางผลลัพธ์ที่รวมกัน จากนั้นพิมพ์สูตรดังนี้：

=เชื่อมต่อ(F2,",",G2)

 ในสูตร F2 และ G2 เป็นข้อความสองข้อความที่ต้องรวมกัน "," เป็นตัวคั่น (จุลภาค) ที่แยกข้อความทั้งสองในเซลล์ผลลัพธ์ หากคุณต้องการใช้ช่องว่างเป็นตัวคั่น ให้พิมพ์ช่องว่าง ล้อมรอบด้วยอัญประกาศคู่ " "

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์ที่รวมกัน จากนั้นลากขอบจับป้อนอัตโนมัติลงเพื่อให้ได้ผลลัพธ์ที่รวมกัน

สำหรับการรวมแถวเข้าด้วยกัน ให้เปลี่ยนการอ้างอิงเซลล์และตัวคั่นตามต้องการ แล้วลากจุดจับเติมอัตโนมัติไปทางขวา

1.13 การใช้ฟังก์ชัน CONCAT หรือฟังก์ชัน TEXTJOIN (Excel 2019 หรือ Excel 365)

ถ้าคุณใช้ Excel 2019 หรือ Excel 365 ฟังก์ชัน CONCAT และฟังก์ชัน TEXTJOIN อาจเป็นทางเลือกที่ดีกว่า

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน CONCAT โปรดไปที่: คอนแคต.

การใช้ฟังก์ชัน CONCAT จะเหมือนกับฟังก์ชัน CONCATENATE ในการรวมชื่อและนามสกุลในสองคอลัมน์แยกกันเป็นคอลัมน์เดียว จะใช้สูตรดังนี้:

=CONCAT(A21," ",B21)

 ในสูตร A21 และ B21 เป็นข้อความสองข้อความที่ต้องรวมกัน " " เป็นตัวคั่น (ช่องว่าง) ที่คั่นข้อความทั้งสองในเซลล์ผลลัพธ์ หากคุณต้องการใช้ตัวคั่นอื่นๆ ให้พิมพ์ตัวคั่นที่ปิดด้วย double ใบเสนอราคา ""

กดปุ่ม Enter เพื่อรับผลลัพธ์ที่รวมกัน จากนั้นลากขอบจับป้อนอัตโนมัติลงเพื่อให้ได้ผลลัพธ์ที่รวมกัน

แตกต่างจากการรวมคอลัมน์ ในขณะที่รวมแถว หลังจากป้อนสูตรแรก คุณต้องลากจุดจับป้อนอัตโนมัติไปทางขวา จนกว่าผลลัพธ์ที่รวมกันทั้งหมดจะได้รับ

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน TEXTJOIN โปรดไปที่: ข้อความเข้าร่วม.

ในการรวมคอลัมน์หรือแถวโดยใช้ TEXTJOIN:

=TEXTJOIN(",",จริง,E21:G21))

  ในสูตร E21:G21 เป็นช่วงต่อเนื่องที่ต้องรวมกัน " " เป็นตัวคั่น (ช่องว่าง) ที่คั่นข้อความสองข้อความในเซลล์ผลลัพธ์ หากคุณต้องการใช้ตัวคั่นอื่นๆ เพียงพิมพ์ตัวคั่นที่ล้อมรอบด้วยเครื่องหมายคำพูดคู่ "" ข้อความตรรกะ “TRUE” ระบุว่าจะละเว้นเซลล์ว่างเมื่อรวม ถ้าคุณต้องการรวมกับช่องว่าง ให้แทนที่ TRUE ด้วย FALSE

กดปุ่ม Enter เพื่อรับผลลัพธ์ที่รวมกัน จากนั้นลากขอบจับป้อนอัตโนมัติลงเพื่อให้ได้ผลลัพธ์ที่รวมกัน

ละเว้นช่องว่าง

รวมช่องว่าง

1.14 การใช้ Notepad (สำหรับการรวมคอลัมน์เท่านั้น)

1. การใช้ Notepad ยังสามารถทำให้เกิดการรวมคอลัมน์ (ไม่มีผลต่อการรวมแถว)

เลือกช่วงที่คุณต้องการรวมคอลัมน์เป็นหนึ่งเดียว แล้วกด Ctrl + C คีย์เพื่อคัดลอกช่วง

2 เปิด Notepadและกด Ctrl + V เพื่อวางช่วงที่คัดลอก

3. เลือกแท็บระหว่างสองข้อความใน Notepad แล้วกด Ctrl + H การเปิดใช้งาน แทนที่ คุณลักษณะ มีการวางสัญลักษณ์แท็บใน สิ่งที่ค้นหา กล่องข้อความ.

4 ใน แทนที่ด้วย กล่องข้อความ พิมพ์ตัวคั่นที่คุณต้องการแยกข้อความที่รวมกัน จากนั้นคลิก แทนที่ทั้งหมด. จากนั้นปิดไฟล์ แทนที่ โต้ตอบ

5. ตอนนี้เลือกข้อความใน Notepad แล้วกด Ctrl + C เพื่อคัดลอกและไปที่ Excel เลือกเซลล์แล้วกด Ctrl + V เพื่อวางผลลัพธ์ที่รวมกัน

ส่วนขยาย: รวมคอลัมน์/แถวเป็นเซลล์เดียวโดยให้ตัวแบ่งบรรทัดเป็นตัวคั่น

ถ้าคุณต้องการรวมคอลัมน์หรือแถวเป็นเซลล์เดียวโดยแบ่งบรรทัดดังภาพด้านล่างนี้:

ประการแรก คุณควรตระหนักว่าใน Excel ชาร์() สามารถใช้ฟังก์ชันเพื่อระบุอักขระที่ป้อนยากในสูตรได้ เช่น CHAR (10) ส่งคืนตัวแบ่งบรรทัด

จากนั้นใช้ CHAR(10) ในสูตรที่แสดงด้านบนเพื่อรวมคอลัมน์หรือแถวที่มีตัวแบ่งบรรทัดเป็นตัวคั่น:

สัญลักษณ์แอมเพอร์แซนด์:

=A49&CHAR(10)&B49

ฟังก์ชัน CONCATENATE:

=CONCATENATE(A49,CHAR(10),B49)

ฟังก์ชัน CONCAT

=CONCAT(A49,CHAR(10),B49)

ฟังก์ชัน TEXTJOIN

=TEXTJOIN(CHAR(10),TRUE,A49:B49)

หลังจากป้อนสูตรด้านบนแล้ว ให้เลือกผลลัพธ์ แล้วคลิก หน้าแรก > ตัดข้อความ.

ตอนนี้ คอลัมน์ต่างๆ จะรวมกันเป็นหนึ่งเดียวและคั่นด้วยตัวแบ่งบรรทัด

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

ในส่วนนี้ บทช่วยสอนจะแนะนำวิธีการรวมคอลัมน์หรือแถวต่างๆ ไว้ในเซลล์เดียวและข้ามเซลล์ว่างดังที่แสดงไว้ด้านล่างนี้

1.21 การใช้ฟังก์ชัน TEXTJOIN (Excel 2019 หรือ Excel 365)

หากคุณกำลังใช้ Excel 2019 หรือ Excel 365 โชคดีที่ฟังก์ชันใหม่ TEXTJOIN สามารถแก้ปัญหานี้ได้อย่างง่ายดาย

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน TEXTJOIN โปรดไปที่: ข้อความเข้าร่วม.

ตัวอย่าง: รวมชื่อ (คอลัมน์ A) และหมายเลข (คอลัมน์ B) และโดเมน (คอลัมน์ C) ไว้ในเซลล์เดียวเพื่อสร้างที่อยู่อีเมล หมายเลขบางส่วนอาจว่างเปล่า

เลือกเซลล์ที่ใช้วางผลลัพธ์รวม พิมพ์สูตรดังนี้:

=TEXTJOIN("",จริง,A2:C2)

ในสูตร A2:C2 คือช่วงที่มีข้อความที่ต้องรวม "" เป็นตัวคั่น (ไม่มี) ที่แยกข้อความสองข้อความในเซลล์ผลลัพธ์ หากคุณต้องการใช้ตัวคั่นเพื่อแยกข้อความ ก็แค่ พิมพ์ตัวคั่นที่ล้อมรอบด้วยอัญประกาศคู่ "" เช่น "," ข้อความตรรกะ “TRUE” ระบุว่าจะละเว้นเซลล์ว่างเมื่อรวม ถ้าคุณต้องการรวมกับช่องว่าง ให้แทนที่ TRUE ด้วย FALSE

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

1.22 การใช้เครื่องหมายและสัญลักษณ์ (&)

ถ้าคุณอยู่ใน Excel 2016 หรือเวอร์ชันก่อนหน้าของ Excel ให้ใช้สัญลักษณ์และ & เพื่อเชื่อมต่อข้อความทีละรายการและข้ามช่องว่างด้วยตนเอง

เลือกเซลล์ที่คุณต้องการวางผลลัพธ์ที่รวมกัน จากนั้นพิมพ์สูตรดังนี้：

=A10&C10

ในสูตร & ใช้สำหรับเชื่อมข้อความ A10 และ C10 เป็นข้อความสองข้อความที่จำเป็นต้องรวมกัน หากคุณต้องการใช้เครื่องหมายจุลภาคเป็นตัวคั่น ให้พิมพ์เครื่องหมายจุลภาคล้อมรอบด้วยเครื่องหมายคำพูดคู่ เช่น "," และใช้ & เพื่อเชื่อมต่อระหว่างสองข้อความ

ข่าวประชาสัมพันธ์ เข้าสู่ ที่สำคัญเพื่อให้ได้ผลลัพธ์ที่รวมกัน จากนั้นเปลี่ยนการอ้างอิงของสูตรเพื่อให้ได้ผลลัพธ์ที่รวมกันต่อไป

1.23 การใช้ฟังก์ชันที่กำหนด

สำหรับผู้ใช้ Excel 2016 และเวอร์ชันก่อนหน้าของ Excel หากจำเป็นต้องรวมคอลัมน์หรือแถวหลายคอลัมน์ขณะข้ามช่องว่าง คุณสามารถใช้ VBA เพื่อสร้างฟังก์ชัน Defined เพื่อแก้ปัญหานี้ได้อย่างรวดเร็ว

1 กด อื่น ๆ + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อแทรกโมดูลใหม่

3. คัดลอกและวางโค้ดด้านล่างลงในโมดูลใหม่และบันทึก

VBA: รวมเซลล์ข้ามเซลล์ว่าง

Function Concatenatecells(ConcatArea As Range) As String
'updateby Extendoffice
  For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & "_"): Next
  Concatenatecells = Left(nn, Len(nn) - 1)
End Function

4. กลับไปที่แผ่นงาน และเลือกเซลล์ที่วางผลลัพธ์รวม พิมพ์สูตร

=Concatenatecells(A15:C15)

ในสูตร A15:C15 คือช่วงที่มีข้อความที่ต้องรวมเข้าด้วยกัน ในโค้ด VBA "_" หมายถึงตัวคั่นที่ใช้แยกข้อความในผลลัพธ์ที่รวมกัน คุณสามารถเปลี่ยนตัวคั่นได้ตามที่คุณต้องการ

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

1. เลือกเซลล์ที่คุณต้องการรวมและเซลล์ที่คุณต้องการวางผลลัพธ์ที่รวมกัน

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

3. ในกล่องโต้ตอบ popping ให้ระบุตัวเลือกดังต่อไปนี้:

1) ระบุเพื่อรวมคอลัมน์ หรือรวมแถว หรือรวมเซลล์ทั้งหมดให้เป็นหนึ่งเดียว

รวมคอลัมน์ เช่น	รวมแถว เช่น	รวมเป็นเซลล์เดียว เช่น

2) ระบุตัวคั่นสำหรับข้อความในผลลัพธ์ที่รวมกัน

3) ระบุตำแหน่งของผลรวม (ปิดการใช้งานเมื่อเลือกตัวเลือกรวมเป็นเซลล์เดียว)

เมื่อเลือกตัวเลือก รวมคอลัมน์ คุณสามารถระบุให้วางผลลัพธ์ในเซลล์ด้านซ้ายของช่วงที่เลือก หรือเซลล์ด้านขวาของช่วงที่เลือก

เซลล์ด้านซ้าย เช่น	เซลล์ขวา เช่น

เมื่อเลือก รวมแถว คุณสามารถระบุให้วางผลลัพธ์ในเซลล์บนสุดของช่วงที่เลือก หรือเซลล์ด้านล่างสุดของช่วงที่เลือก

เซลล์บน เช่น	เซลล์ด้านล่าง เช่น

4) ระบุการดำเนินการเกี่ยวกับผลรวม

4 คลิก Ok or สมัครสมาชิก เพื่อจบการรวมกัน

เก็บเนื้อหาของเซลล์ที่รวมกัน

ลบเนื้อหาของเซลล์ที่รวมกัน

;ผสานเซลล์ที่รวมกัน

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับคุณสมบัตินี้ โปรดไปที่ รวมคอลัมน์ แถว เซลล์โดยไม่สูญเสียข้อมูล.

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับ Kutools for Excel กรุณาเยี่ยมชม Kutools สำหรับ Excel.

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

บางครั้ง คุณอาจต้องการรวมสองคอลัมน์ถ้าคอลัมน์ใดคอลัมน์หนึ่งมีเซลล์ว่าง สมมติว่ามีสองคอลัมน์ คอลัมน์ A มีชื่อผู้ใช้และเซลล์ว่างบางเซลล์ และคอลัมน์ B มีชื่อ ตอนนี้ให้เติมเซลล์ว่างในคอลัมน์ A ด้วยเนื้อหาที่เกี่ยวข้องในคอลัมน์ B เมื่อรวมสองคอลัมน์ดังภาพหน้าจอด้านล่าง:

1.41 การใช้ฟังก์ชัน IF

ฟังก์ชัน IF ใช้เพื่อทดสอบเงื่อนไขเฉพาะ คุณสามารถใช้ฟังก์ชัน IF เพื่อทดสอบว่าเซลล์นั้นว่างหรือไม่ จากนั้นเติมเนื้อหาในช่องว่างในคอลัมน์อื่น

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน IF โปรดไปที่: IF

เลือกเซลล์บนสุดของคอลัมน์ที่คุณต้องการวางผลลัพธ์ที่รวมกัน แล้วคัดลอกหรือป้อนสูตรด้านล่าง:

=IF(A2="",B2,A2)

จากนั้นกด เข้าสู่ เพื่อให้ได้ผลลัพธ์แรก และลากที่จับสำหรับป้อนอัตโนมัติลงเพื่อรับผลลัพธ์ทั้งหมด

ตอนนี้มีเพียงเซลล์ว่างในคอลัมน์ A เท่านั้นที่ถูกเติมด้วยเนื้อหาในคอลัมน์ B

1.42 การใช้VBA

นี่คือรหัส VBA ที่สามารถจัดการงานนี้ได้

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

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

VBA: รวมสองคอลัมน์ถ้าว่าง

Sub MergebyBlank()
'UpdatebyExtendoffice20220506
Dim xRg1, xRg2, xRgUser As Range
Dim xRg As Range
Dim xWsh As Worksheet
Dim xCount, xFNum  As Integer
Set xRg1 = Range("A:A")
Set xRg2 = Range("B:B")
Set xWsh = xRg1.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg1 = Intersect(xRgUser, xRg1)
Set xWsh = xRg2.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg2 = Intersect(xRgUser, xRg2)
xCount = xRg1.Count
If (xCount > xRg2.Count) Then
    xCount = xRg2.Count
End If
For xFNum = 1 To xCount
    If (xRg1.Item(xFNum).Value = "") Then
        If (xRg2.Item(xFNum).Value <> "") Then
            xRg1.Item(xFNum).Value = xRg2.Item(xFNum).Value
        End If
    ElseIf (xRg2.Item(xFNum).Value = "") Then
            If (xRg1.Item(xFNum).Value <> "") Then
            xRg2.Item(xFNum).Value = xRg1.Item(xFNum).Value
        End If
    End If
Next
End Sub

 ในโค้ด A:A และ B:B เป็นสองคอลัมน์ที่จะรวมเข้าด้วยกัน เพียงแค่เปลี่ยนตามที่คุณต้องการ

3. จากนั้นกด F5 คีย์หรือคลิก วิ่ง   ปุ่ม จากนั้นคอลัมน์ A จะถูกเติมด้วยค่าในคอลัมน์ B หากค่าว่างในคอลัมน์ A

2 รวมแถวด้วย ID เดียวกัน

สมมติว่ามีตารางที่มีหลายคอลัมน์ คอลัมน์หนึ่งมีค่า ID ที่มีรายการที่ซ้ำกัน ตอนนี้ บทช่วยสอนมีวิธีการในการรวมแถวของตารางโดยใช้ ID เดียวกันและทำการคำนวณ

ในส่วนนี้ มีวิธีการรวมแถวที่มี ID เดียวกันและคั่นด้วยเครื่องหมายจุลภาคดังภาพด้านล่างนี้

2.11 การใช้VBA

ที่นี่ให้รหัส VBA ที่สามารถจัดการงานนี้

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

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

VBA: รวมแถวด้วย ID เดียวกัน

Sub Combine_Rows()
'UpdatebyExtendoffice20220506
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Text
Else
xRg(I, K) = xRg(I, K).Text & "," & xRg(J, K).Text 'here uses comma as separator, you can change it to others as you need
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub

3. จากนั้นกด F5 คีย์หรือคลิก วิ่ง   จากนั้น a Kutools สำหรับ Excel จะปรากฏขึ้นเพื่อให้คุณเลือกตารางที่จำเป็นต้องรวมแถวที่มี ID เดียวกัน

4 คลิก OK. ตอนนี้ตารางที่เลือกได้ถูกรวมแถวตาม ID เดียวกันแล้ว

2.12 การใช้ฟังก์ชัน IF เพื่อเพิ่มคอลัมน์ตัวช่วย

หากมีเพียงสองคอลัมน์ และคุณต้องการรวมแถวที่มี ID เดียวกัน และค่าคอลัมน์อื่นที่คั่นด้วยเครื่องหมายจุลภาคดังที่แสดงในภาพหน้าจอด้านล่าง ฟังก์ชัน IF สามารถช่วยคุณได้

1. เรียง ID จาก A ถึง Z เลือกคอลัมน์ ID คลิก ข้อมูล > เรียงลำดับ A ถึง Z.

2. จากนั้นใน คำเตือนการเรียงลำดับ โต้ตอบตรวจสอบ แสดง ตัวเลือกการเลือกคลิก ประเภท.

ตอนนี้ได้จัดเรียง ID เดียวกันแล้ว

3. ในคอลัมน์ที่อยู่ติดกัน ใช้ฟังก์ชัน IF ดังนี้:

=IF(A17=A18,C17&", "&B18,B18)

 ในสูตร A17 และ A18 คือเซลล์สองเซลล์ที่อยู่ติดกันในคอลัมน์ ID (A17 คือส่วนหัวของคอลัมน์ ID) B18 คือเซลล์ที่สอดคล้องกันของเซลล์ A18 "," บ่งชี้ให้แยกค่าด้วยเครื่องหมายจุลภาค คุณสามารถเปลี่ยนการอ้างอิงและตัวคั่นได้ตามต้องการ

4 กด เข้าสู่ เพื่อให้ได้ผลลัพธ์แรก จากนั้นลากจุดจับป้อนอัตโนมัติลงเพื่อรับผลลัพธ์ทั้งหมด

5. ไปที่คอลัมน์ที่อยู่ติดกัน พิมพ์สูตรดังนี้:

=IF(A18<>A19,"ผสาน","")

 ในสูตร A18 และ A19 เป็นเซลล์ที่อยู่ติดกันสองเซลล์ในคอลัมน์ ID หากเซลล์ที่อยู่ติดกันไม่เท่ากัน เซลล์จะกลับเป็น "ผสาน" ไม่เช่นนั้นจะคืนค่าว่าง

6 กด เข้าสู่ เพื่อให้ได้ผลลัพธ์แรก จากนั้นลากจุดจับป้อนอัตโนมัติลงเพื่อรับผลลัพธ์ทั้งหมด

7. เลือกคอลัมน์สูตรสุดท้ายพร้อมส่วนหัว แล้วคลิก ข้อมูล > ตัวกรอง.

8 คลิกที่ ตัวกรอง ปุ่มและติ๊ก รวม กล่องกาเครื่องหมายในเมนูแบบเลื่อนลง คลิก OK.

ตอนนี้กรองเฉพาะแถวที่ผสานเท่านั้น คัดลอกข้อมูลที่กรองแล้ววางในที่อื่น

รายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน IF กรุณาเยี่ยมชม: IF.

ถ้าคุณได้ติดตั้ง Kutools สำหรับ Excel ใน Excel, the แถวรวมขั้นสูง สามารถทำงานนี้ได้อย่างง่ายดาย

1. เลือกตารางแล้วคลิก Kutools > ผสานและแยก > แถวรวมขั้นสูง.

2 ใน แถวรวมขั้นสูง โปรดทำตามขั้นตอนต่อไปนี้:

1) เลือกคอลัมน์ ID และตั้งเป็น คีย์หลัก;

2) เลือกคอลัมน์ที่คุณต้องการรวมค่ากับตัวคั่น คลิก รวมกัน และเลือกตัวคั่นหนึ่งตัว

3)คลิก Ok.

ตอนนี้แถวถูกรวมเข้าด้วยกันด้วย ID เดียวกัน

ฟีเจอร์ Advanced Combine Rows จะทำลายข้อมูลต้นฉบับ โปรดบันทึกข้อมูลเป็นสำเนาก่อนใช้งาน

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับคุณสมบัตินี้ โปรดไปที่ แถวรวมขั้นสูง.

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับ Kutools for Excel กรุณาเยี่ยมชม Kutools สำหรับ Excel.

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

หากคุณต้องการรวมแถวที่มี ID เดียวกัน แล้วรวมค่าหรือทำการคำนวณอื่นๆ ตามที่แสดงด้านล่างนี้ วิธีการด้านล่างสามารถช่วยคุณได้

2.21 การใช้คุณสมบัติการรวม

ถ้ามีเพียงสองคอลัมน์ คอลัมน์หนึ่งประกอบด้วยข้อความ (ID) และอีกคอลัมน์หนึ่งมีค่าที่ต้องคำนวณ เช่น ผลรวม ฟีเจอร์ในตัวของ Excel รวบรวม สามารถช่วยคุณได้

1. เลือกเซลล์ที่คุณต้องการวางผลลัพธ์ที่รวมกัน จากนั้นคลิก ข้อมูล > รวบรวม.

2 ใน รวบรวม โต้ตอบทำดังนี้:

1) เลือกไฟล์ ฟังก์ชั่น ตามที่คุณต้องการ

2) คลิกลูกศรเพื่อเลือกตาราง

3) คลิก เพิ่ม เพื่อเพิ่มช่วงที่เลือกไปยัง การอ้างอิงทั้งหมด รายการ;

4) เลือกช่องทำเครื่องหมายของ แถวบนสุด และ คอลัมน์ซ้าย;

5) คลิก OK.

ตอนนี้ตารางถูกรวมโดยอิงจาก ID เดียวกัน

2.22 การใช้VBA

นี่คือ VBA ที่สามารถรวมแถวที่มี ID เดียวกันแล้วรวมค่าได้

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

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

VBA: รวมแถวที่ซ้ำกันและผลรวม

Sub CombineRows()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

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

ตอนนี้ช่วงที่เลือกได้ถูกรวมเข้ากับค่าเดียวกันและผลรวมแล้ว

  VBA จะทำลายข้อมูลต้นฉบับ โปรดบันทึกข้อมูลเป็นสำเนาก่อนใช้ VBA

2.23 การใช้เครื่องมือที่มีประโยชน์ – Advanced Combine Rows

หากมีมากกว่าสองคอลัมน์ในตารางที่คุณต้องการรวมและทำการคำนวณ เช่น มีสามคอลัมน์ คอลัมน์แรกมีชื่อผลิตภัณฑ์ที่ซ้ำกันซึ่งจำเป็นต้องรวมเข้าด้วยกัน คอลัมน์ที่สองมีชื่อร้านค้าที่จำเป็นต้องใช้ รวมและคั่นด้วยเครื่องหมายจุลภาคคอลัมน์สุดท้ายประกอบด้วยตัวเลขที่จำเป็นต้องเป็นผลรวมตามแถวที่ซ้ำกันในคอลัมน์แรกดังภาพด้านล่างที่แสดง Kutools สำหรับ Excel's Advanced Combine Rows สามารถช่วยคุณได้

1. เลือกตารางแล้วคลิก Kutools > ผสานและแยก > แถวรวมขั้นสูง.

2 ใน แถวรวมขั้นสูง โปรดทำตามขั้นตอนต่อไปนี้:

1) เลือกคอลัมน์ ID และตั้งเป็น คีย์หลัก;

2) เลือกคอลัมน์ที่คุณต้องการรวมค่าด้วยตัวคั่น คลิก รวมกัน และเลือกตัวคั่นหนึ่งตัว

3) เลือกคอลัมน์ที่ต้องการคำนวณ คลิก คำนวณ และเลือกการคำนวณหนึ่งรายการ

4)คลิก Ok.

ตอนนี้แถวถูกรวมเข้ากับแถวเดียวกันและคำนวณแล้ว

 ฟีเจอร์ Advanced Combine Rows จะทำลายข้อมูลต้นฉบับ โปรดบันทึกข้อมูลเป็นสำเนาก่อนใช้งาน

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับคุณสมบัตินี้ โปรดไปที่ แถวรวมขั้นสูง.

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับ Kutools for Excel กรุณาเยี่ยมชม Kutools สำหรับ Excel.

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

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

2.31 การใช้VBA

ใน Excel ไม่มีฟีเจอร์ในตัวที่สามารถแก้ปัญหานี้ได้โดยตรง แต่มี VBA ที่สามารถจัดการได้

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

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

VBA: รวมแถวที่อยู่ติดกันด้วยค่าเดียวกัน

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. จากนั้นกด F5 คีย์หรือคลิก วิ่ง   เพื่อเปิดใช้งาน VBA นี้ จากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกตารางที่คุณใช้ จากนั้นคลิก OK.

ตอนนี้แถวที่อยู่ติดกันที่มีค่าเดียวกันในคอลัมน์แรกจะรวมกันอยู่ในช่วงที่เลือก

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

2.32 การใช้เครื่องมือที่มีประโยชน์ – รวมเซลล์เดียวกัน

ถ้าคุณมี Kutools สำหรับ Excel ติดตั้งใน Excel, the ผสานเซลล์เดียวกัน คุณสมบัติของ Kutools for Excel สามารถแก้ปัญหานี้ได้ในขั้นตอนเดียว

เลือกคอลัมน์ที่คุณต้องการรวมค่าเดียวกัน แล้วคลิก Kutools > ผสานและแยก > ผสานเซลล์เดียวกัน.

ตอนนี้เซลล์ที่อยู่ติดกันที่มีค่าเดียวกันได้รับการผสานแล้ว

I ถ้าคุณต้องการยกเลิกการผสานเซลล์ที่ผสานและเติมค่ากลับ คุณสามารถใช้ ยกเลิกการผสานเซลล์ & เติมค่า ลักษณะ

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับคุณสมบัตินี้ โปรดไปที่ ผสานเซลล์เดียวกัน.

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับคุณสมบัตินี้ โปรดไปที่ ยกเลิกการผสานเซลล์.

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับ Kutools for Excel กรุณาเยี่ยมชม Kutools สำหรับ Excel.

โปรดทดลองใช้ Kutools for Excel ฟรี 30 วัน ดาวน์โหลด ขณะนี้

3 รวมเซลล์

สำหรับการรวมช่วงที่มีหลายแถวและหลายคอลัมน์ไว้ในเซลล์เดียว ต่อไปนี้เป็นสี่วิธี

ตัวอย่าง: รวมช่วง A1:C3

3.11 การใช้เครื่องหมายและสัญลักษณ์ (&)

ใน Excel เครื่องหมาย & มักใช้เพื่อรวมข้อความ

เลือกเซลล์ที่คุณต้องการวางผลลัพธ์ที่รวมกัน จากนั้นพิมพ์สูตรดังนี้：

=A1&", "&B1&", "&C1&", "&A2&", " &B2&", "&C2&", "&A3&", "&B3&", "&C3

 ในสูตร & ใช้เพื่อรวมข้อความ ", " เป็นตัวคั่น (จุลภาค + ช่องว่าง) ที่แยกข้อความสองข้อความในเซลล์ผลลัพธ์ หากคุณต้องการใช้ตัวคั่นอื่นๆ ให้พิมพ์ตัวคั่นที่ปิดด้วยเครื่องหมายอัญประกาศคู่

ข่าวประชาสัมพันธ์ เข้าสู่ ที่สำคัญเพื่อให้ได้ผลลัพธ์ที่รวมกัน

3.12 การใช้ฟังก์ชัน CONCATENATE (Excel 2016 หรือเวอร์ชันก่อนหน้า)

หากคุณกำลังใช้ Excel 2016 หรือเวอร์ชันก่อนหน้า ฟังก์ชัน CONCATENATE สามารถช่วยคุณได้

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน CONCATENATE โปรดไปที่: CONCATENATE

เลือกเซลล์ที่คุณต้องการวางผลลัพธ์ที่รวมกัน จากนั้นพิมพ์สูตรดังนี้:

=CONCATENATE(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", " ,C3)

 ในสูตร A1, B1…,C3 คือข้อความที่คุณต้องการรวม "," เป็นตัวคั่น (จุลภาค + ช่องว่าง) ที่แยกข้อความสองข้อความในเซลล์ผลลัพธ์ ถ้าคุณต้องการใช้ตัวคั่นอื่น เพียงพิมพ์ตัวคั่นที่ปิดด้วยอัญประกาศคู่

จากนั้นกด เข้าสู่ ที่สำคัญเพื่อให้ได้ผลลัพธ์ที่รวมกัน

3. 13 การใช้ฟังก์ชัน CONCAT หรือฟังก์ชัน TEXTJOIN (Excel 2019 หรือ Excel 365)

ถ้าคุณใช้ Excel 2019 หรือ Excel 365 ฟังก์ชัน CONCAT และฟังก์ชัน TEXTJOIN อาจเป็นทางเลือกที่ดีกว่า

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน CONCAT โปรดไปที่: คอนแคต.

การใช้ฟังก์ชัน CONCAT จะเหมือนกับฟังก์ชัน CONCATENATE เพื่อรวมชื่อและนามสกุลซึ่งแยกเป็นสองคอลัมน์เป็นคอลัมน์เดียว จะใช้สูตรดังนี้

=CONCAT(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", " ,C3)

 ในสูตร A1, B1…,C3 คือข้อความที่คุณต้องการรวม "," เป็นตัวคั่น (จุลภาค + ช่องว่าง) ที่แยกข้อความสองข้อความในเซลล์ผลลัพธ์ ถ้าคุณต้องการใช้ตัวคั่นอื่น เพียงพิมพ์ตัวคั่นที่ปิดด้วยอัญประกาศคู่

จากนั้นกด เข้าสู่ ที่สำคัญเพื่อให้ได้ผลลัพธ์ที่รวมกัน

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน TEXTJOIN โปรดไปที่: ข้อความเข้าร่วม.

ในการรวมคอลัมน์หรือแถวโดยใช้ TEXTJOIN:

=TEXTJOIN(", ",จริง,A1:C3)

 ในสูตร A1:C3 คือช่วงต่อเนื่องที่ต้องรวมกัน "," เป็นตัวคั่น (เครื่องหมายจุลภาค + ช่องว่าง) ที่แยกข้อความสองข้อความในเซลล์ผลลัพธ์ หากคุณต้องการใช้ตัวคั่นอื่นๆ เพียงพิมพ์ตัวคั่นที่ล้อมรอบด้วยเครื่องหมายคำพูดคู่ "" ข้อความตรรกะ “TRUE” ระบุว่าจะละเว้นเซลล์ว่างเมื่อรวม ถ้าคุณต้องการรวมกับช่องว่าง ให้แทนที่ TRUE ด้วย FALSE

จากนั้นกด เข้าสู่ ที่สำคัญเพื่อให้ได้ผลลัพธ์ที่รวมกัน

 ถ้าคุณต้องการใช้ตัวแบ่งบรรทัดเป็นตัวคั่น โดยใช้ CHAR(10) ในสูตร เช่น =TEXTJOIN(CHAR(10),TRUE,A1:C3) ให้จัดรูปแบบเซลล์ผลลัพธ์เป็นตัวตัดข้อความ

3.14 การใช้คอลัมน์/แถว/เซลล์รวมเป็นเซลล์เดียวโดยไม่สูญเสียข้อมูล

ถ้าคุณมี Kutools for Excel ติดตั้งอยู่ใน Excel ไฟล์ รวมแถวคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล คุณสมบัติสามารถจัดการงานนี้ได้อย่างรวดเร็ว

1. เลือกช่วงของเซลล์ที่คุณต้องการรวมเป็นเซลล์เดียว จากนั้นคลิก Kutools > ผสานและแยก > รวมแถวคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล.

2. ในกล่องโต้ตอบ popping ให้เลือก รวมเป็นเซลล์เดียว และระบุตัวคั่นตามที่คุณต้องการ จากนั้นคลิก Ok.

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

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับคุณสมบัตินี้ โปรดไปที่ รวมคอลัมน์ แถว เซลล์โดยไม่สูญเสียข้อมูล.

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับ Kutools for Excel กรุณาเยี่ยมชม Kutools สำหรับ Excel.

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

ย้ายเซลล์เป็นคอลัมน์เดียว

ย้ายเซลล์เป็นแถวเดียว

3.21 ตั้งชื่อช่วงและใช้ฟังก์ชัน INDEX (สำหรับคอลัมน์เดียวเท่านั้น)

ถ้าคุณต้องการย้ายช่วงของเซลล์เป็นคอลัมน์เดียว คุณสามารถตั้งชื่อช่วงแล้วใช้ฟังก์ชัน INDEX

1. เลือกช่วงของเซลล์ คลิกขวาเพื่อเปิดใช้งานเมนูบริบท แล้วคลิก กำหนดชื่อ.

2. ใน popping ชื่อใหม่ กล่องโต้ตอบ พิมพ์ชื่อใน Name กล่องข้อความคลิก OK.

3. หลังจากตั้งชื่อช่วงแล้ว ให้เลือกเซลล์ที่จัดวางข้อมูล ให้ใช้ฟังก์ชัน INDEX ดังนี้

=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน INDEX โปรดไปที่ คลิกที่นี่เพื่ออ่านรายละเอียดเพิ่มเติม.

4 กด เข้าสู่ จากนั้นลากที่จับป้อนอัตโนมัติลงเพื่อเติมสูตรนี้จนกว่าจะถึง #REF! ค่าความผิดพลาดปรากฏขึ้น

5. ลบค่าความผิดพลาด จากนั้นช่วงของเซลล์จะถูกรวมเป็นหนึ่งคอลัมน์

3.22 VBA (สำหรับคอลัมน์เดียวเท่านั้น)

สำหรับการรวมเซลล์ไว้ในคอลัมน์เดียว นี่คือ VBA ที่สามารถทำงานได้เช่นกัน

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

2. คัดลอกและวางโค้ด VBA ด้านล่างลงในโมดูลเปล่า..

VBA: แปลงช่วงเป็นคอลัมน์

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
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

3. จากนั้นกด F5 คีย์หรือคลิก วิ่ง   ปุ่ม กล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกช่วงของเซลล์ คลิก OK.

4. กล่องโต้ตอบอื่นจะปรากฏขึ้นเพื่อเลือกเซลล์ที่จะวางผลลัพธ์ คลิก OK.

3.23 การใช้เครื่องมือที่มีประโยชน์ – Transform Range

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

1. เลือกช่วงของเซลล์แล้วคลิก Kutools > พิสัย > ช่วงการแปลง.

2 ใน ช่วงการแปลง โต้ตอบตรวจสอบ ช่วงเป็นคอลัมน์เดียว or ช่วงเป็นแถวเดียว ตัวเลือกตามที่คุณต้องการ คลิก OK.

3. กล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกเซลล์ที่จะวางผลลัพธ์ คลิก OK.

ตอนนี้ช่วงของเซลล์ได้รับการแปลงเป็นแถวหรือคอลัมน์แล้ว

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับคุณสมบัตินี้ โปรดไปที่ ช่วงการแปลง.

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับ Kutools for Excel กรุณาเยี่ยมชม Kutools สำหรับ Excel.

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

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

ในส่วนนี้ มีสามวิธีในการจัดการงานนี้

3.31 คัดลอกและวางและลบรายการที่ซ้ำกัน

ใน Excel วิธีการทั่วไปในการแก้ปัญหานี้คือ คัดลอกและวางคอลัมน์ทีละคอลัมน์ แล้วเอาค่าที่ซ้ำกันออก

1. เลือกคอลัมน์แรกแล้วกด Ctrl + C คีย์เพื่อคัดลอกจากนั้นเลือกเซลล์ปลายทางแล้วกด Ctrl + V กุญแจ

2 จากนั้นทำซ้ำขั้นตอนที่ 1 เพื่อคัดลอกคอลัมน์อื่นแล้ววางใต้คอลัมน์แรก

3. จากนั้นเลือกคอลัมน์ที่ซ้อนกัน คลิก ข้อมูล > ลบรายการที่ซ้ำกันแล้วใน นำออกสำเนา กล่องโต้ตอบ ตรวจสอบชื่อคอลัมน์ คลิก OK.

4. ตอนนี้กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณว่าค่าที่ซ้ำกันจะถูกลบออก คลิก OK เพื่อปิด และคอลัมน์ที่ซ้อนกันจะเก็บเฉพาะค่าที่ไม่ซ้ำ

 หากมีหลายร้อยคอลัมน์ การคัดลอกและวางทีละคอลัมน์จะใช้เวลานาน อย่างไรก็ตามหากคุณมี Kutools สำหรับ Excel ติดตั้งใน Excel, the ช่วงการแปลง คุณสมบัติสามารถแปลงช่วงเป็นคอลัมน์ได้อย่างรวดเร็วจากนั้นใช้ ลบรายการที่ซ้ำกัน คุณสมบัติของ Excel

เลือกช่วงของคอลัมน์ และคลิก Kutools > พิสัย > ช่วงการแปลง.

จากนั้นตรวจสอบไฟล์ ช่วงเป็นคอลัมน์เดียว แล้วคลิก OK เพื่อเลือกเซลล์ที่จะวางคอลัมน์แบบเรียงซ้อน

จากนั้นใช้ Remove Duplicates เพื่อลบค่าที่ซ้ำกัน

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับคุณสมบัตินี้ โปรดไปที่ ช่วงการแปลง.

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับ Kutools for Excel กรุณาเยี่ยมชม Kutools สำหรับ Excel.

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

3.32 การใช้VBA

ยิ่งไปกว่านั้น นี่คือรหัส VBA ที่สามารถแก้ปัญหานี้ได้

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

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

VBA: ซ้อนคอลัมน์ให้เป็นหนึ่งเดียวโดยไม่ซ้ำกัน

Sub FindUniques()
'UpdatebyExtendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

3. จากนั้นกด F5 คีย์หรือคลิก วิ่ง   จากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกคอลัมน์ที่ต้องการจะซ้อน ให้คลิกตกลง

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

ขณะนี้ คอลัมน์ต่างๆ ถูกซ้อนกันเป็นคอลัมน์เดียวโดยมีค่าเฉพาะเท่านั้น

หากมีสองคอลัมน์ คอลัมน์หนึ่งจะถูกจัดรูปแบบเป็นการจัดรูปแบบพิเศษ เช่น DateTimemm/dd/yyyy แบบกำหนดเอง เพื่อรวมสองคอลัมน์นี้เป็นหนึ่งเดียวด้วยวิธีปกติ การจัดรูปแบบที่กำหนดเองจะถูกลบออกดังภาพหน้าจอด้านล่าง:

ในส่วนนี้จะนำเสนอวิธีการรวมเซลล์และคงการจัดรูปแบบไว้

3.41 ฝังฟังก์ชัน TEXT ในสูตร

ฟังก์ชัน TEXT ใช้เพื่อแปลงตัวเลขเป็นข้อความในการจัดรูปแบบเฉพาะ ที่นี่เราสามารถใช้เพื่อแปลงเซลล์ (ประกอบด้วยตัวเลข) เป็นการจัดรูปแบบก่อน จากนั้นจึงรวมเข้ากับเซลล์อื่นโดยใช้ “&”, ฟังก์ชัน CONCATENATE, ฟังก์ชัน CONCAT หรือฟังก์ชัน TEXTJOIN

สำหรับรายละเอียดเกี่ยวกับการรวมเซลล์ทั่วไปให้เป็นหนึ่งเดียว โปรดกลับไปที่ 1.1.

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน TEXT โปรดไปที่ TEXT ฟังก์ชัน

ใช้การฝังฟังก์ชัน TEXT ในฟังก์ชัน CONCAT เป็นอินสแตนซ์

โปรดคัดลอกและวางสูตรด้านล่างลงในเซลล์ที่คุณต้องการให้ผลลัพธ์รวมอยู่:

=CONCAT(TEXT(A2,"mm/dd/yyyy hh:mm")," ",B2)

 ในสูตร A2 คือเซลล์ที่คุณต้องการคงรูปแบบไว้ "mm/dd/yyyy hh:mm" คือรูปแบบที่คุณใช้ B2 คือเซลล์อื่นที่ใช้ในการรวม " " หมายถึงการแยกค่าด้วยการเว้นวรรค คุณสามารถเปลี่ยนการอ้างอิง การจัดรูปแบบ และตัวคั่นได้ตามต้องการ

ข่าวประชาสัมพันธ์ เข้าสู่ คีย์แล้วลากที่จับเติมอัตโนมัติลงเพื่อเติมเซลล์ด้วยสูตรนี้

3.42 การใช้ Microsoft Word

1. เลือกตารางที่คุณต้องการรวมเซลล์เป็นหนึ่งเดียว แล้วกด Ctrl + C เพื่อคัดลอก

2. เปิดช่องว่าง คำ เอกสาร กด Ctrl + V เพื่อวาง จากนั้นคลิกที่ตารางในเอกสาร ตอนนี้ไอคอนกากบาทจะปรากฏขึ้นที่ด้านบนขวาของตาราง

3 คลิกที่ แบบ จากนั้นคลิกที่ แปลงเป็นข้อความ ใน ข้อมูล กลุ่มใน popping แปลงตารางเป็นข้อความ กล่องโต้ตอบ ระบุตัวคั่นสำหรับคอลัมน์ คลิก OK.

ตอนนี้เนื้อหาของตารางใน Word ได้ถูกแปลงเป็นข้อความแล้ว

4. เลือกข้อความที่แปลงแล้วกด Ctrl + C เพื่อคัดลอกและกลับไปที่ Excel แล้วเลือกเซลล์ว่างให้กด Ctrl + V เพื่อวางผลรวม

3.43 การใช้เครื่องมือที่มีประโยชน์ – รวมเข้าด้วยกันโดยไม่สูญเสียข้อมูล

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

1. เลือกตารางรวมทั้งเซลล์ที่วางผลลัพธ์ คลิก Kutools > ผสานและแยก > รวมแถวคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล.

2. ในไดอะล็อกป๊อปอัป ให้ระบุการดำเนินการรวมตามที่คุณต้องการ และยกเลิกการเลือก ใช้ค่าที่จัดรูปแบบ ช่องทำเครื่องหมาย (โดยค่าเริ่มต้น ตัวเลือกนี้ถูกทำเครื่องหมายไว้) คลิก Ok.

ตอนนี้ข้อมูลได้ถูกรวมและเก็บการจัดรูปแบบไว้

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับคุณสมบัตินี้ โปรดไปที่ รวมคอลัมน์ แถว เซลล์โดยไม่สูญเสียข้อมูล.

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับ Kutools for Excel กรุณาเยี่ยมชม Kutools สำหรับ Excel.

สำหรับการทดลองใช้ Kutools for Excel ฟรี {module745} วัน ดาวน์โหลด ตอนนี้

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

3.51 การใช้ฟังก์ชัน DATE

ฟังก์ชัน DATE ใช้สำหรับสร้างวันที่ด้วยปี เดือน และวัน

สำหรับรายละเอียดเพิ่มเติมเกี่ยวกับฟังก์ชัน DATE โปรดไปที่ฟังก์ชัน DATE

คัดลอกและวางสูตรด้านล่างลงในเซลล์ที่จะวางวันที่:

=DATE(A2,B2,C2)

 ในสูตร A2, B2 และ C2 คือเซลล์ที่มีค่าปี เดือน และวัน

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อรับวันแรก จากนั้นลากขอบจับป้อนอัตโนมัติลงเพื่อรับวันที่ทั้งหมด

บทแนะนำ Excel เพิ่มเติม:

---

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

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

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

อ่านเพิ่มเติม ... คุณสมบัติเต็มรูปแบบ ทดลองใช้งานฟรี 30 วัน... ซื้อ... 

---

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

• เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
• เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
• เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... คุณสมบัติเต็มรูปแบบ ทดลองใช้งานฟรี 30 วัน... ซื้อ...