Bỏ qua nội dung chính

Làm cách nào để hợp nhất mọi hàng / ô khác trong Excel?

Tác giả: Mặt trời Sửa đổi lần cuối: 2014-03-31

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


mũi tên màu xanh bong bóng bên phải 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:



mũi tên màu xanh bong bóng bên phải 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ả:



Các bài báo tương đối:

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations