Làm cách nào để hợp nhất mọi hàng / ô khác trong Excel?
Nếu bạn có một danh sách dữ liệu và bạn muốn kết hợp mọi hàng hoặc ô khác trong số chúng như hình dưới đây, bạn có biết cách thực hiện không? Trong Excel, bạn có thể sử dụng công thức hoặc VBA để hợp nhất mọi hàng hoặc ô khác.
Hợp nhất mọi hàng / ô khác với công thức trong Excel
Hợp nhất mọi hàng / ô khác với VBA
Hợp nhất mọi hàng / ô khác với công thức trong Excel
Chọn một ô trống và nhập =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) ($ 1 cho biết dữ liệu đầu tiên trong danh sách của bạn, bạn có thể thay đổi nó khi cần) và nhấn phím Enter. Sau đó kéo chốt điền để điền vào phạm vi bạn cần áp dụng công thức này. Xem ảnh chụp màn hình:
Hợp nhất mọi hàng / ô khác với VBA
Nếu bạn đã quen sử dụng VBA, bạn cũng có thể chạy VBA bên dưới để hợp nhất mọi hàng khác.
1. Giữ ALT nút và báo chí F11 trên bàn phím để mở Microsoft Visual Basic cho ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đunvà sao chép VBA vào mô-đun.
VBA: Hợp nhất mọi hàng / ô khác
Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
For j = 1 To InputRng.Columns.Count
OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
Set OutRng = OutRng.Offset(0, 1)
Next
Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub
3. nhấp chuột chạy để chạy mã VBA và KutoolsforExcel hộp thoại bật lên để bạn chọn một dải ô mà bạn muốn hợp nhất mọi hàng khác. Xem ảnh chụp màn hình:
4. nhấp chuột OK, một hộp thoại khác sẽ hiển thị để bạn chọn một ô duy nhất để đưa ra kết quả đã hợp nhất. Xem ảnh chụp màn hình:
5. nhấp chuột OK, và bạn có thể thấy kết quả:
