Làm cách nào để nối các ô nếu tồn tại cùng một giá trị trong một cột khác trong Excel?

Như ảnh chụp màn hình bên trái được hiển thị, giả sử bạn cần nối các ô trong cột thứ hai dựa trên các ô có cùng giá trị trong cột đầu tiên. Làm thế nào bạn có thể đạt được nó?

Trong bài viết này, chúng tôi sẽ giới thiệu ba phương pháp giúp bạn đạt được điều đó.

Nối các ô nếu có cùng giá trị với công thức và bộ lọc
Nối các ô nếu có cùng giá trị với mã VBA
Dễ dàng nối các ô nếu có cùng giá trị với Kutools cho Excel

Nối các ô nếu có cùng giá trị với công thức và bộ lọc

Với các công thức dưới đây, bạn có thể nối nội dung ô tương ứng nếu một cột khác chứa cùng giá trị trong Excel.

1. Chọn một ô trống bên cạnh cột thứ hai (ở đây chúng tôi chọn ô C2), nhập công thức = IF (A2 <> A1, B2, C1 & "," & B2) vào thanh công thức, rồi nhấn đăng ký hạng mục thi Chìa khóa.

2. Sau đó chọn ô C2 và kéo Fill Handle xuống các ô bạn cần nối.

3. Nhập công thức = IF (A2 <> A3, CONCATENATE (A2, "," "", C2, "" ""), "") vào ô D2 và kéo Fill Handle xuống các ô còn lại.

4. Chọn ô D1 và nhấp vào Ngày > Lọc. Xem ảnh chụp màn hình:

5. Nhấp vào mũi tên thả xuống trong ô D1, bỏ chọn (Khoảng trống) và sau đó bấm vào OK .

Bạn có thể thấy các ô được nối với nhau nếu giá trị cột đầu tiên giống nhau.

Chú thích: Để sử dụng thành công các công thức trên, các giá trị giống nhau trong cột A phải liên tục.

Nối các ô nếu có cùng giá trị với mã VBA

Bên cạnh công thức, trong phần này, chúng tôi sẽ hướng dẫn bạn cách sử dụng mã VBA để nối các ô nếu có cùng giá trị.

1. nhấn Khác + F11 phím để mở Ứng dụng Microsoft Visual Basic cửa sổ.

2. bên trong Ứng dụng Microsoft Visual Basic cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán mã bên dưới vào Mô-đun cửa sổ.

Mã VBA: nối các ô nếu cùng giá trị

Sub ConcatenateCellsIfSameValues()
	Dim xCol As New Collection
	Dim xSrc As Variant
	Dim xRes() As Variant
	Dim I As Long
	Dim J As Long
	Dim xRg As Range
	xSrc    = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
	Set xRg = Range("D1")
	On Error Resume Next
	For I = 2 To UBound(xSrc)
		xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
	Next I
	On Error GoTo 0
	ReDim xRes(1 To xCol.Count + 1, 1 To 2)
	xRes(1, 1) = "No"
	xRes(1, 2) = "Combined Color"
	For I = 1 To xCol.Count
		xRes(I + 1, 1) = xCol(I)
		For J = 2 To UBound(xSrc)
			If xSrc(J, 1) = xRes(I + 1, 1) Then
				xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
			End If
		Next J
		xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
	Next I
	Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
	xRg.NumberFormat = "@"
	xRg = xRes
	xRg.EntireColumn.AutoFit
End Sub

Chú ý:

1. D1 phù Đặt xRg = Range ("D1") nghĩa là kết quả sẽ được đặt trong ô D1.

2. Không và Màu kết hợp phù xRes (1, 1) = "Không" và xRes (1, 2) = "Màu kết hợp" là tiêu đề của các cột được nối. Bạn có thể thay đổi chúng khi bạn cần.

3. Nhấn nút F5 để chạy mã, sau đó bạn sẽ nhận được các kết quả được nối trong phạm vi được chỉ định.

Dễ dàng nối các ô nếu có cùng giá trị với Kutools cho Excel (vài cú nhấp chuột)

Nếu hai phương pháp trên phức tạp với bạn, thì ở đây chúng tôi sẽ chỉ cho bạn Các hàng kết hợp nâng cao tiện ích của Kutools cho Excel.  Bạn có thể dễ dàng nối các ô bằng dấu phẩy, dấu chấm phẩy, v.v. nếu các giá trị giống nhau tồn tại trong cột khác.

1. Chọn phạm vi có các ô bạn cần nối, sau đó 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 Các hàng kết hợp nâng cao hộp thoại, bạn cần làm như sau.

• 2.1) Chọn cột có cùng giá trị mà bạn muốn nối các ô dựa trên, sau đó bấm vào Khóa chính .
• 2.2) Chọn cột bạn muốn nối các ô, nhấp vào Kết hợp và sau đó chỉ định dấu phân tách khỏi menu ngữ cảnh (ở đây tôi chỉ định Dấu phẩy).
• 2.3) Nhấp vào OK .

Bây giờ các ô được nối theo cột khóa chính.

Dễ dàng nối các ô nếu có cùng giá trị với Kutools cho Excel

---

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.

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào... 

---

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!

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào...