Hướng dẫn how to merge every 2 cells in excel - cách hợp nhất 2 ô 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 của chúng như được hiển thị như dưới đây, bạn có biết cách hoàn thành 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

Tab Office Kích hoạt chỉnh sửa và duyệt tab trong văn phòng và làm cho công việc của bạn dễ dàng hơn nhiều ...

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

• Tái sử dụng bất cứ điều gì: Thêm các công thức, biểu đồ được sử dụng hoặc phức tạp nhất và bất cứ điều gì khác vào mục yêu thích của bạn, và nhanh chóng sử dụng lại chúng trong tương lai. Add the most used or complex formulas, charts and anything else to your favorites, and quickly reuse them in the future.
• Hơn 20 tính năng văn bản: Trích xuất số từ chuỗi văn bản; Trích xuất hoặc loại bỏ một phần của văn bản; Chuyển đổi số và tiền tệ thành từ tiếng Anh. Extract Number from Text String; Extract or Remove Part of Texts; Convert Numbers and Currencies to English Words.
• Công cụ hợp nhất: Nhiều sổ làm việc và tờ thành một; Hợp nhất nhiều ô/hàng/cột mà không mất dữ liệu; Hợp nhất các hàng trùng lặp và tổng.: Multiple Workbooks and Sheets into One; Merge Multiple Cells/Rows/Columns Without Losing Data; Merge Duplicate Rows and Sum.
• Công cụ phân chia: Chia dữ liệu thành nhiều bảng dựa trên giá trị; Một sổ làm việc cho nhiều tệp Excel, PDF hoặc CSV; Một cột đến nhiều cột.: Split Data into Multiple Sheets Based on Value; One Workbook to Multiple Excel, PDF or CSV Files; One Column to Multiple Columns.
• Dán các hàng ẩn/lọc; Đếm và tổng hợp màu nền; Gửi email được cá nhân hóa cho nhiều người nhận với số lượng lớn. Hidden/Filtered Rows; Count And Sum by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
• Super Filter: Tạo các sơ đồ bộ lọc nâng cao và áp dụng cho bất kỳ bảng nào; Sắp xếp theo tuần, ngày, tần suất và nhiều hơn nữa; Lọc theo in đậm, công thức, bình luận ... Create advanced filter schemes and apply to any sheets; Sort by week, day, frequency and more; Filter by bold, formulas, comment...
• Hơn 300 tính năng mạnh mẽ; Làm việc với Office 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.Works with Office 2007-2019 and 365; Supports all languages; Easy deploying in your enterprise or organization.

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à loại = offset [A $ 1, [Row []-1]*2,0] & "" & Offset [A $ 1, [[Row []-1]*2] +1,0] [a $ 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 bạn cần] và nhấn phím Enter. Sau đó kéo tay cầm điền để lấp đầy phạm vi bạn cần để áp dụng công thức này. Xem ảnh chụp màn hình:=OFFSET[A$1,[ROW[]-1]*2,0]&" "&OFFSET[A$1,[[ROW[]-1]*2]+1,0] [ A$1 indicates the first data in your list, you can change it as you need], and press Enter key. Then drag the fill handle to fill the range you need to apply this formula. See screenshot:

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 dưới đây để hợp nhất mọi hàng khác.

1. Giữ nút Alt và nhấn F11 trên bàn phím để mở cửa sổ Microsoft Visual Basic cho ứng dụng. ALT button and press F11 on the keyboard to open a Microsoft Visual Basic for Application window.

2. Nhấp vào Chèn> Mô -đun và sao chép VBA vào mô -đun.Insert > Module, and copy the VBA into the module.

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 vào Chạy để chạy mã VBA và hộp thoại Kutoolsforexcel bật lên để bạn chọn một loạt các ô mà bạn muốn hợp nhất mọi hàng khác. Xem ảnh chụp màn hình:Run to run the VBA code, and a KutoolsforExcel dialog pops up for you to select a range of cells that you want to merge the every other row. See screenshot:

4. Nhấp vào OK, một hộp thoại khác hiển thị cho bạn để chọn một ô duy nhất để đưa ra kết quả được hợp nhất. Xem ảnh chụp màn hình:OK, another dialog displays for you to select a single cell to put out the merged result. See screenshot:

5. Nhấp vào OK và bạn có thể thấy kết quả:OK, and you can see the result:

Bài viết tương đối:

• Chọn mọi hàng khác hoặc thứ n trong Excel
• Sao chép mọi hàng khác
• Xóa mọi hàng khác

Comments[0] [0]

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng!