วิธีผสานแถวที่อยู่ติดกันอย่างรวดเร็วด้วยข้อมูลเดียวกันใน Excel

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

รวมแถวที่อยู่ติดกันของข้อมูลเดียวกันด้วยรหัส VBA

ผสานแถวที่อยู่ติดกันของข้อมูลเดียวกันกับ Kutools for Excel

ยกเลิกการผสานเซลล์และเติมค่าที่ซ้ำกันใน Excel

รวมแถวที่อยู่ติดกันของข้อมูลเดียวกันด้วยรหัส VBA

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

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

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

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 กุญแจสำคัญในการเรียกใช้รหัสนี้กล่องโต้ตอบจะปรากฏขึ้นบนหน้าจอเพื่อเลือกช่วงที่จะใช้งาน ดูภาพหน้าจอ:

4. จากนั้นคลิก OKข้อมูลเดียวกันในคอลัมน์ A จะถูกรวมเข้าด้วยกัน ดูภาพหน้าจอ:

ผสานแถวที่อยู่ติดกันของข้อมูลเดียวกันกับ Kutools for Excel

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

หลังจากการติดตั้ง Kutools สำหรับ Excelคุณสามารถทำได้ดังนี้:

1. เลือกคอลัมน์ที่คุณต้องการผสานแถวที่อยู่ติดกันด้วยข้อมูลเดียวกัน

2. คลิก Kutools > ผสานและแยก > ผสานเซลล์เดียวกันดูภาพหน้าจอ:

3. จากนั้นข้อมูลเดียวกันในคอลัมน์ที่เลือกจะถูกรวมไว้ในเซลล์เดียว ดูภาพหน้าจอ:

คลิกเพื่อดาวน์โหลด Kutools สำหรับ Excel และทดลองใช้ฟรีทันที!