Tìm và gộp noi dung có giống nhau về mã code

[daviddoan71]

Chào các anh chi

Hiên tại em có 2 sheet. Ở Sheet INV1 có mã số 1503311 có 3 dòng với comments khác nhau
Bến tab OINV, em muốn gộp 3 comments này lai với nhau cách nhau bằng dấu phẩy theo tiêu chí so sánh trùng mã code 1503311 thì sẽ lấy qua từ INV1.

Mấy anh giúp em
Thanks

View more random threads:

• Cần tư vấn
• Lỗi text field khi pivot không rõ nguyên nhân
• Tìm và lấy dãy số ra khỏi 1 dãy
• giúp in hình 2 mặt trong word
• Lập trình VBA: Insert Unicode into Oracle table sử dụng VBA
• Cách khắc phục lỗi dùng Mathtye 6 nhập dấu mũ trong word 2010
• Trừ lũy kế có điều kiện
• Excel không tự động mở rộng điều kiện
• Giup toi giai bai tap excel
• Hàm vlookup và hàm if lồng nhau

[djshinoda]

Chào các anh chi

Hiên tại em có 2 sheet. Ở Sheet INV1 có mã số 1503311 có 3 dòng với comments khác nhau
Bến tab OINV, em muốn gộp 3 comments này lai với nhau cách nhau bằng dấu phẩy theo tiêu chí so sánh trùng mã code 1503311 thì sẽ lấy qua từ INV1.

Mấy anh giúp em
Thanks

Bài toán nối chuỗi theo điều kiện chỉ có thể giải quyết bằng VBA thôi bạn à

Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aTmp, Arr(), Item, tmp As String
  Dim i As Long, n As Long
  'On Error Resume Next
  For i = LBound(Arrays) To UBound(Arrays)
    aTmp = Arrays(i)
    If Not IsArray(aTmp) Then aTmp = Array(aTmp)
    For Each Item In aTmp
      If TypeName(Item) <> "Error" Then
        tmp = CStr(Item)
        n = n + 1
        ReDim Preserve Arr(1 To n)
        Arr(n) = tmp
      End If
    Next
  Next
  If n Then JoinText = Join(Arr, Delimiter)
End Function

Nếu không đồng ý dùng VBA (chỉ dùng công thức) thì thật ra là... thua
Ẹc... Ẹc...

[vanphong130896]

Vậy là ngoài VBA không còn cách nào nữa hả mấy anh

[hoaican]

Vậy là ngoài VBA không còn cách nào nữa hả mấy anh

Đương nhiên vẫn còn cách làm.. bằng tay [IMG]images/smilies/a01.gif[/IMG]