Tổng hợp dữ liệu 2 cột thành 1 cột

[honmalee]

Các bác giúp em với
cột danh sách tên Tháng 1
njuvà danh sách tên Tháng 2 ( tháng 2 có thêm mấy người nữa )
em muốn ghép 2 cột này thành 1 cột đầy đủ tên của cả tháng 1 và tháng 2 ( dữ liệu trùng nhau chỉ lấy ra 1 ở cột kết quả)
các bác giúp em gấp nhé! em cám ơn

 

[kyo]

Các bác giúp em với
cột danh sách tên Tháng 1
njuvà danh sách tên Tháng 2 ( tháng 2 có thêm mấy người nữa )
em muốn ghép 2 cột này thành 1 cột đầy đủ tên của cả tháng 1 và tháng 2 ( dữ liệu trùng nhau chỉ lấy ra 1 ở cột kết quả)
các bác giúp em gấp nhé! em cám ơn

Theo mình là thế này, bạn xem file nhé.

 

[Xiaojiangs]

Các bác giúp em với
cột danh sách tên Tháng 1
njuvà danh sách tên Tháng 2 ( tháng 2 có thêm mấy người nữa )
em muốn ghép 2 cột này thành 1 cột đầy đủ tên của cả tháng 1 và tháng 2 ( dữ liệu trùng nhau chỉ lấy ra 1 ở cột kết quả)
các bác giúp em gấp nhé! em cám ơn

Đầu tiên bạn có thể tạo cột phụ để nối dữ liệu 2 cột đó thành 1 cột bằng hàm INDEX sau đó tiến hành lọc duy nhất.
Hoặc cách 2 thì dùng VBA, bạn có thể search cách làm trên diễn đàn này.

 

[nthxe]

cột A: tháng 1
Cột B: tháng 2
Cột C: tổng hợp
c1= if(a1=b1,a1,b1)

 

[nghiaphuc]

cột A: tháng 1
Cột B: tháng 2
Cột C: tổng hợp
c1= if(a1=b1,a1,b1)

Hình như bạn không đọc kỹ yêu cầu của tác giả rồi. Công thức của bạn chẳng giải quyết được gì cho bài này cả.

 

[nthxe]

c1=if(a1=b1,a1,a1&b1)

 

[nghiaphuc]

c1=if(a1=b1,a1,a1&b1)

Công thức này thì vẫn chưa cải thiện được gì. Yêu cầu cụ thể là thế này: Tại cột C sẽ nối cả 2 danh sách tại cột A và cột B, sau đó loại bỏ tên trùng, chỉ để lại danh sách tên duy nhất, tất nhiên là mỗi tên vẫn nằm trên một hàng.

 

[anhcunha]

Mình muốn hỏi thêm nếu không phải là 2 cột mà là nhiều cột thì làm sao đây? Ví dụ 12 cột, hoặc 31 cột (mỗi ngày là 1 cột). NHờ các cao thủ trên diễn đàn ra tay giúp. Cám ơn các Bạn niều

 

[kyo]

Ở đây mình giả sử dữ liệu nằm trong khoảng A2 đến G100, nếu bạn muốn nhiều cột hơn thì cứ thay chữ G thành chữ khác tùy bạn. Nhưng phải chú ý dữ liệu tổng hợp mình để ở cột H nhé, nếu bạn muốn đổi thì đổi cả dữ liệu tổng hợp nữa.

Sub moving()
Dim i As Integer, j As Integer, k As Integer
Dim dic, arr
arr = Sheet1.Range("A2:G100").Value
k = 0
With CreateObject("scripting.dictionary")
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            If arr(i, j) <> "" Then
                If Not .exists(arr(i, j)) Then
                    .Add arr(i, j), ""
                    k = k + 1
                End If
            End If
        Next j
    Next i
    Sheet1.Range("H2").Resize(k, 1).Value = WorksheetFunction.Transpose(.keys)
End With
End Sub

 

[anhcunha]

Chào Kyo,
Bạn có thể gửi cho mình số điện thoại, tên để liên hệ trực tiếp không?
Mình là Hà, địa chỉ mail của mình là hatn@sacombank.com
Mình rất cần tư vấn trực tiếp của Bạn (5' thôi)
cám ơn Kyo