วิธีการต่อค่าเซลล์จนกว่าจะพบเซลล์ว่างในคอลัมน์?

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

เชื่อมต่อค่าของเซลล์จนกว่าจะพบเซลล์ว่างในคอลัมน์ที่มีรหัส VBA

เชื่อมต่อค่าของเซลล์จนกว่าจะพบเซลล์ว่างในคอลัมน์ด้วย Kutools for Excel

เชื่อมต่อค่าของเซลล์จนกว่าจะพบเซลล์ว่างในคอลัมน์ที่มีรหัส VBA

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

1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

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

รหัส VBA: เชื่อมต่อค่าของเซลล์จนกว่าจะพบเซลล์ว่าง

Sub Concatenatecells()
'updateby Extendoffice
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xTStr As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell <> "" Then
            xTStr = xTStr & xCell & " "
        Else
            xSaveToRg.Value = xTStr
            Set xSaveToRg = xSaveToRg.Offset(1)
            xTStr = ""
        End If
    Next
    If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
    Application.ScreenUpdating = True
End Sub

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

4. จากนั้นคลิก OKและกล่องพรอมต์อื่นจะปรากฏขึ้นโปรดเลือกเซลล์เพื่อส่งออกผลลัพธ์ที่ต่อกันดูภาพหน้าจอ:

5. จากนั้นคลิก OK ปุ่มและข้อมูลรายการคอลัมน์จะเชื่อมต่อระหว่างช่องว่างดูภาพหน้าจอ:

เชื่อมต่อค่าของเซลล์จนกว่าจะพบเซลล์ว่างในคอลัมน์ด้วย Kutools for Excel

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

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. เลือกเซลล์ที่คุณต้องการเชื่อมต่อกันแล้วคลิก Kutools > พิสัย > ช่วงการแปลงดูภาพหน้าจอ:

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

3. จากนั้นคลิก Okและกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์เพื่อแสดงผลลัพธ์ดูภาพหน้าจอ:

4. คลิก OKและข้อมูลคอลัมน์เดียวถูกแปลงเป็นหลายแถวและคอลัมน์โดยเซลล์ว่างดูภาพหน้าจอ:

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

6. ใน รวมคอลัมน์หรือแถว กล่องโต้ตอบทำตามตัวเลือกต่อไปนี้

(1. ) เลือก รวมคอลัมน์ ตัวเลือกจาก เพื่อรวมเซลล์ที่เลือกตามตัวเลือกต่อไปนี้;

(2. ) จากนั้นระบุตัวคั่นที่คุณต้องการแยกค่าที่ต่อกัน

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

7. หลังจากเสร็จสิ้นการตั้งค่าคลิก Ok or สมัครสมาชิก เซลล์ถูกเชื่อมต่อกันเป็นคอลัมน์เดียวโดยมีตัวคั่นเฉพาะดูภาพหน้าจอ:

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