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?
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
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:
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:
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:
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 đổi và Kế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:
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:
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:
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:
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:
Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
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!