ไปยังเนื้อหาหลัก

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

doc ต่อกันจนว่าง 1

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

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

doc ต่อกันจนว่าง 10

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

doc ต่อกันจนว่าง 11

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

doc ต่อกันจนว่าง 1


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

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

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

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

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

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

doc ต่อกันจนว่าง 3

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

doc ต่อกันจนว่าง 4

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

doc ต่อกันจนว่าง 5

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

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

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

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

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

doc ต่อกันจนว่าง 7

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

doc ต่อกันจนว่าง 8

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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

kte แท็บ 201905


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I am using the VBA code, but instead of putting the data into separate rows, it is putting it all in a single cell. Does anyone have an idea why it is doing this?
This comment was minimized by the moderator on the site
Hi! After changing the values (ex, watermelon instead of apple) why is the formula not working?
This comment was minimized by the moderator on the site
Hello, Cristina

Our article provides VBA code, doesn't provide a formula. If you change the cell content, you must re-run the code again to get the correct result.
Thank you!
This comment was minimized by the moderator on the site
great job bro, Very useful
This comment was minimized by the moderator on the site
Hello,
You are welcome. Glad it helps. Any questions, please feel free to contact us. Have a great day.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
It shows there's a syntax error on line 3 "Dim xRg As Range" when I'm trying to run this module based on method 1, what should I do about it?
This comment was minimized by the moderator on the site
Hello, JJ, The code works well in my worksheet, which Excel version do you use?Or you can insert a screesnhot of your problem here.
This comment was minimized by the moderator on the site
How would you do it if you want to base it off another column? I have similar data, but column B is a number then notes(like your fruit) in column I, I want to combine all notes in column I until there is another cell in Column B that has only number. Sometimes there are letter under B or the cells are blank which is why it needs to combine until a number. Then finally can it output back to where it started the combine? IE all notes for first number are in column j, but if the next number is 5 rows below that is fine, it just goes in column j but same row number as the number is found?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations