Note: The other languages of the website are Google-translated. Back to English
English English

Làm cách nào để nối các giá trị ô cho đến khi tìm thấy ô trống trong một cột?

doc nối cho đến khi trống 1

Ví dụ: tôi có một danh sách các giá trị bao gồm một số ô trống và bây giờ, tôi muốn nối từng bộ dữ liệu giữa các ô trống vào một ô và liệt kê các giá trị được kết hợp trong một cột khác như ảnh chụp màn hình sau. Làm cách nào để nối các ô cho đến khi tìm thấy ô trống trong một cột?

Nối các giá trị ô cho đến khi tìm thấy ô trống trong cột có mã VBA

Nối các giá trị ô cho đến khi tìm thấy ô trống trong một cột bằng Kutools cho Excel


mũi tên màu xanh bong bóng bên phải Nối các giá trị ô cho đến khi tìm thấy ô trống trong cột có mã VBA

Không có cách trực tiếp nào để bạn nối một tập hợp các ô giữa các ô trống, nhưng bạn có thể áp dụng mã VBA sau để xử lý nó. Vui lòng làm như sau:

1. Giữ ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: nối các giá trị ô cho đến khi tìm thấy ô trống

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. Sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để nhắc bạn chọn dải dữ liệu mà bạn muốn nối, xem ảnh chụp màn hình:

doc nối cho đến khi trống 10

4. Sau đó nhấn vào OKvà một hộp nhắc khác hiện ra, vui lòng chọn một ô để xuất kết quả nối, xem ảnh chụp màn hình:

doc nối cho đến khi trống 11

5. Và sau đó nhấp vào OK và dữ liệu danh sách cột được nối giữa các ô trống, xem ảnh chụp màn hình:

doc nối cho đến khi trống 1


mũi tên màu xanh bong bóng bên phải Nối các giá trị ô cho đến khi tìm thấy ô trống trong một cột bằng Kutools cho Excel

Nếu bạn có Kutools cho Excel, kết hợp nó Phạm vi chuyển đổiKết hợp , bạn cũng có thể hoàn thành công việc này càng sớm càng tốt. Các Phạm vi chuyển đổi tiện ích có thể giúp bạn chuyển đổi cột đơn thành một dải ô và Kết hợp tính năng này có thể giúp bạn nối phạm vi đã chuyển đổi thành một cột.

Kutools cho Excel : với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. 

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:

1. Chọn các ô mà bạn muốn nối và nhấp vào Kutools > Phạm vi > Phạm vi chuyển đổi, xem ảnh chụp màn hình:

2. Trong Phạm vi chuyển đổi hộp thoại, kiểm tra Một cột thành dải ô tùy chọn theo Biến đổi kiểu, Và sau đó chọn Ô trống phân tách các bản ghi theo Hàng trên mỗi bản ghi, xem ảnh chụp màn hình:

doc nối cho đến khi trống 3

3. Sau đó nhấn vào Okvà một hộp nhắc sẽ bật ra để nhắc bạn chọn một ô để xuất kết quả, xem ảnh chụp màn hình:

doc nối cho đến khi trống 4

4. Nhấp chuột OKvà dữ liệu cột đơn đã được chuyển đổi thành nhiều hàng và cột bởi ô trống, hãy xem ảnh chụp màn hình:

doc nối cho đến khi trống 5

5. Dữ liệu được chuyển đổi nằm trong nhiều cột, vì vậy bạn cần kết hợp chúng thành một cột, vui lòng chọn phạm vi dữ liệu và nhấp vào Kutools > Hợp nhất & Tách > Kết hợp các hàng, cột hoặc ô mà không làm mất dữ liệu, xem ảnh chụp màn hình:

6. Trong Kết hợp các cột hoặc hàng hộp thoại, hãy thực hiện các tùy chọn sau:

(1.) Chọn Kết hợp các cột tùy chọn từ Để kết hợp các ô đã chọn theo các tùy chọn sau;

(2.) Sau đó chỉ định một dấu phân tách mà bạn muốn phân tách các giá trị được nối;

(3.) Chọn cách bạn muốn xử lý với các ô được kết hợp. Bạn có thể giữ hoặc xóa dữ liệu gốc và cũng có thể hợp nhất các ô đã kết hợp. Xem ảnh chụp màn hình:

doc nối cho đến khi trống 7

7. Sau khi hoàn tất cài đặt, hãy nhấp vào Ok or Đăng Nhập , các ô đã được nối thành một cột bằng dấu phân tách cụ thể, xem ảnh chụp màn hình:

doc nối cho đến khi trống 8

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (7)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn sẽ làm như thế nào nếu bạn muốn căn cứ nó vào một cột khác? Tôi có dữ liệu tương tự, nhưng cột B là một số sau đó ghi chú (như trái cây của bạn) trong cột I, tôi muốn kết hợp tất cả các ghi chú trong cột I cho đến khi có một ô khác trong Cột B chỉ có số. Đôi khi có chữ cái dưới B hoặc các ô trống, đó là lý do tại sao nó cần kết hợp với nhau cho đến một số. Sau đó, cuối cùng nó có thể xuất trở lại nơi nó bắt đầu kết hợp không? IE tất cả các ghi chú cho số đầu tiên đều ở cột j, nhưng nếu số tiếp theo là 5 hàng bên dưới thì không sao, nó chỉ chuyển sang cột j nhưng cùng số hàng với số được tìm thấy?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó cho thấy có lỗi cú pháp trên dòng 3 "Dim xRg As Range" khi tôi đang cố gắng chạy mô-đun này dựa trên phương pháp 1, tôi nên làm gì với nó?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, JJ, Mã hoạt động tốt trong trang tính của tôi, bạn sử dụng phiên bản Excel nào? Hoặc bạn có thể chèn ảnh chụp toàn cảnh về sự cố của mình tại đây.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
công việc tuyệt vời anh bạn, rất hữu ích
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
Không có chi. Rất vui vì nó có ích. Nếu có thắc mắc gì, vui lòng liên hệ với chúng tôi. Có một ngày tuyệt vời.
Trân trọng,
Mandy
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào! Sau khi thay đổi các giá trị (ví dụ: dưa hấu thay vì táo), tại sao công thức không hoạt động?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Cristina

Bài viết của chúng tôi cung cấp mã VBA, không cung cấp công thức. Nếu bạn thay đổi nội dung ô, bạn phải chạy lại mã để có kết quả chính xác.
Cảm ơn bạn!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất