Tôi chưa Test thử code của bạn nhưng thấy hàm của bạn còn thiếu phần khai báo biến (bạn Mr.Bum đã bổ sung) và còn thiếu kiểu trả về của hàm.
Bạn thử lại xem!những invoice của em nó không mặc định như vậy, em không biết có code nào lọc được các ký tự giống nhau ra rồi ngăn cách với nhau "/"
Em đã làm rồi nhưng nó chỉ đúng khi cột A có những invoice như vậy khi các invoice khác có ký tự nhiều hơn thì nó sẽ ra kết quả sai anh à
Tham khảo thêm code này:Kết quả của em là thế này mà bác 3000102130-1/02130-2/02130-3/02230/02330/02430/12430/22430, của bác là nó combine tất cả vào với nhau , còn kết quả của em chỉ lấy cái invoice đầu làm đại diện còn các invoice sau chỉ lấy từ ký tự khác nhau
Function Gop(Rng As Range) As String
Dim iR As Long, Tmp1 As String, Tmp2 As String
Dim Dic As Object, kR As Byte
Set Dic = CreateObject("Scripting.Dictionary")
For iR = 1 To Rng.Rows.Count
If Len(Rng(iR)) > 4 Then
Tmp1 = Left(Rng(iR), 5)
If Not Dic.Exists(Tmp1) Then
kR = kR + 1
Dic.Add Tmp1, kR
Tmp2 = Tmp2 & "/" & Rng(iR)
Else
Tmp2 = Tmp2 & "/" & Replace(Rng(iR), Tmp1, "")
End If
End If
Next iR
Gop = Right(Tmp2, Len(Tmp2) - 1)
Dic.RemoveAll
End Function
, nhưng mà có vấn đề em để mặc định lệnh "combine(A3:A500,5)" nó báo VALUE chắc nó tính cả các ô có khoảng trắng nên bị lỗi
Bới vậy mới nói bạn đưa dữ liệu lên nhiều nhiều 1 chút (vài trăm dòng đi), đồng thôi đưa luôn kết quả mà bạn mong muốn đạt được
Em gửi lại file chi tiết hơn để các bác hiểu rõ hơn giúp em, thanksEm có 1 dãy số hóa đơn ở cột A và em phải làm tay thành kết quả ở ô B3
Các thầy giúp em dùng lệnh hay code vba như thế nào để được kết quả đó không ạ, em làm tay đau hết măt
Em gửi thầy bản cực kỳ chi tiết hơn và đúng gốc nó luôn ạ. thày giúp em với
Bạn thử hàm sau
Function gop(r As Range) As String
Dim i, j, k As Integer, m, u, cell As Range
u = WorksheetFunction.CountA(r)
For k = 1 To UBound(r.Value)
If r(k) <> "" Then If WorksheetFunction.Match(r(k), r, 0) = k Then _
i = i + 1: gop = gop & "/" & r(k)
Next
gop = Replace(gop, "/", "", 1, 1)
For i = Len(r(1)) To 1 Step -1
m = Left(r(1), i)
j = 0
For Each cell In r
If cell Like m & "*" Then j = j + 1
Next
If j = u Then gop = m & Replace(gop, m, ""): Exit For
Next
End Function
Vậy nên chăng thể hiện kết quả dạng này: 55555(9-1/10-2/11/12)
em đang test thấy chuẩn luôn ạ, em xin đa tạ cảm ơn bác nhiều, có lỗi em lại phiền bác
Function Join(Rng As Range)
Dim Cll As Range, Tmp As String, C As Long
Join = "/"
For Each Cll In Rng
If InStr(Join, "/" & Cll.Value & "/") = 0 And Cll.Value <> "" Then
Join = Join & Cll.Value & "/"
If Tmp = "" Then Tmp = Cll.Value: C = Len(Tmp)
Do Until Cll.Value Like Left(Tmp, C) & "*"
C = C - 1
Loop
End If
Next
Join = Replace(Replace(Left(Join, Len(Join) - 1), "/" & Left(Tmp, C), "/"), "/", Left(Tmp, C), 1, 1)
End FunctionBạn nói đúng, dưới đây là code đã hiệu chỉnh
Function gr(r As Range) As String
Dim cell As Range, i As Integer, u As Integer
For Each cell In r
If Not gr Like "*" & cell & "*" Then gr = gr & "/" & cell: u = u + 1
Next
Do While gr <> "" And Len(gr) - Len(Replace(gr, Left(gr, i + 1), "/")) = i * u
i = i + 1
Loop
gr = Mid(gr, 2, i - 1) & Replace(Replace(gr, Left(gr, i), "/"), "/", "", 1, 1)
End FunctionFunction gr(r As Range) As String
Dim cell As Range, i As Integer, u As Integer
For Each cell In r
If cell <> "" Then If Not gr & "/" Like "*/" & cell & "/*" Then If gr Like "*/" & cell & "*" _
Then gr = "/" & cell & gr: u = u + 1 Else gr = gr & "/" & cell: u = u + 1
Next
Do While gr <> "" And Len(gr) - Len(Replace(gr, Left(gr, i + 1), "/")) = i * u
i = i + 1
Loop
gr = Mid(gr, 2, i - 1) & Replace(Replace(gr, Left(gr, i), "/"), "/", "", 1, 1)
End Function
