Làm cách nào để nhanh chóng hợp nhất các hàng dựa trên giá trị một cột sau đó thực hiện một số phép tính trong Excel?
Ví dụ: bạn có một dải dữ liệu và một cột có các hàng trùng lặp, bây giờ bạn muốn hợp nhất các hàng căn cứ vào cột A (có các bản sao) sau đó thực hiện một số tính toán cho một cột khác dựa trên các hàng đã hợp nhất như hình minh họa:
Trong Excel, không có phương pháp nhanh chóng nào để hợp nhất các hàng dựa trên một giá trị cột, nhưng ở đây tôi giới thiệu
thủ thuật có thể giúp bạn hợp nhất các hàng trùng lặp sau đó tính tổng hoặc thực hiện các phép tính khác trên một cột khác.
Hợp nhất các hàng dựa trên một cột sau đó tính tổng các giá trị bằng VBA
Có một mã VBA có thể giúp bạn hợp nhất các hàng trùng lặp sau đó tính tổng các giá trị cột khác.
Duyệt theo tab & chỉnh sửa nhiều sổ làm việc Excel / tài liệu Word dưới dạng Firefox, Chrome, Internet Explore 10! |
|
Bạn có thể quen với việc xem nhiều trang web trong Firefox / Chrome / IE và chuyển đổi giữa chúng bằng cách nhấp vào các tab tương ứng một cách dễ dàng. Tại đây, Tab Office hỗ trợ xử lý tương tự, cho phép bạn duyệt nhiều sổ làm việc Excel hoặc tài liệu Word trong một cửa sổ Excel hoặc cửa sổ Word và dễ dàng chuyển đổi giữa chúng bằng cách nhấp vào tab của chúng. Bấm miễn phí 30-ngày dùng thử Office Tab! |
 |
1. nhấn F11 + Thay thế phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ, sau đó nhấp vào Chèn > Mô-đun và sao chép và dán mã VBA bên dưới vào mã mới Mô-đun cửa sổ.
VBA: Hợp nhất các hàng dựa trên một giá trị cột
Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
If Not .Exists(Rng.Value) Then
.Add Rng.Value, Rng.Offset(, 1)
Else
.Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
If nRng Is Nothing Then
Set nRng = Rng
Else
Set nRng = Union(nRng, Rng)
End If
End If
Next
If Not nRng Is Nothing Then
nRng.EntireRow.Delete
End If
End With
End Sub2. nhấn F5 Hoặc nhấp chuột chạy để chạy VBA và một hộp thoại bật ra để chọn một dải dữ liệu hoạt động. xem ảnh chụp màn hình:
3. Sau khi chọn một phạm vi làm việc, hãy nhấp vào OK. Bây giờ dữ liệu đã được hợp nhất theo cột đầu tiên và tính tổng các giá trị trong cột thứ hai.
Chú thích: Mã VBA này chỉ có thể hoạt động chính xác khi hợp nhất dựa trên cột đầu tiên và tổng các giá trị trong cột thứ hai.
Hợp nhất các hàng dựa trên một cột rồi tính tổng các giá trị bằng các Hàng Kết hợp Nâng cao
Nếu bạn không quen với mã VBA, bạn có thể sử dụng Các hàng kết hợp nâng cao tính năng của công cụ bổ trợ phần thứ ba - Kutools cho Excel để hợp nhất các hàng trùng lặp một cách dễ dàng và nhanh chóng sau đó tính tổng các giá trị trong một cột khác.
Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:
1. Chọn dữ liệu bạn muốn sử dụng và nhấp vào Kutools > Hợp nhất & Tách > Các hàng kết hợp nâng cao. Xem ảnh chụp màn hình:
2. Sau đó, trong hộp thoại bật lên, hãy chọn cột mà bạn sẽ hợp nhất các cột khác dựa trên đó rồi nhấp vào Tiểu học Chìa khóa và nhấp vào cột khác và nhấp vào Tính toán Sau đó chọn Tổng.
Mẹo: Nếu dải ô đã chọn của bạn có tiêu đề, hãy kiểm tra Dữ liệu của tôi có tiêu đề, và kiểm tra Sử dụng các giá trị được định dạng sẽ giữ nguyên định dạng sau khi hợp nhất.
3. Sau đó nhấn vào Ok. Bây giờ dữ liệu đã được hợp nhất dựa trên cột chính và một cột khác được tổng hợp. Xem ảnh chụp màn hình:
Hợp nhất các hàng dựa trên một cột sau đó thực hiện các thao tác khác nhau trên các cột khác bằng các Hàng Kết hợp Nâng cao.
Các hàng kết hợp nâng cao rất mạnh mẽ, bởi vì nó không chỉ có thể hợp nhất các hàng trùng lặp trong một cột rồi tính tổng một cột khác, mà còn có thể hợp nhất các hàng trùng lặp trong một cột sau đó thực hiện các thao tác khác nhau trên các cột khác.
Giả sử tôi có một dải dữ liệu như hình minh họa bên dưới và tôi muốn kết hợp cả giá trị trong Cột B và tổng giá trị trong Cột C dựa trên Cột A.
Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:
1. Chọn dải dữ liệu và nhấp vào Kutools > Hợp nhất & Tách > Các hàng kết hợp nâng cao. Xem ảnh chụp màn hình:
2. bên trong Kết hợp các hàng dựa trên cột hộp thoại, làm như sau:
(1) Nhấp vào cột bạn muốn kết hợp dựa trên và nhấp vào Khóa chính;
(2) Nhấp vào cột bạn muốn kết hợp dữ liệu và nhấp vào Kết hợp, sau đó chọn một dấu phân tách bạn cần từ danh sách;
(3) Nhấp vào cột bạn muốn tính tổng các giá trị và nhấp vào Tính toán, Và chọn Tổng.
3. nhấp chuột Ok. Bây giờ bạn có thể thấy kết quả như dưới đây:
Với Các hàng kết hợp nâng cao tính năng, bạn cũng có thể hợp nhất các hàng dựa trên một cột sau đó đếm, trung bình, giữ dữ liệu đầu tiên hoặc cuối cùng trong các cột khác.
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-2021 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 đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
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!
