Xin hỏi hàm ghép chuỗi khác nhau ? (1 người xem)

[nguyentrananh]

Em có một cột gồm nhiều chuỗi, em muốn làm một hàm chỉ nối các chuỗi khác nhau
A
B
C
A
12

Hàm ghép chuỗi trả về kết quả : ABC12
Hàm này em xem trên diễn đàn nhưng không biết cách chế biến theo yêu cầu ở trên
Function Ghep(Rng As Range) As String
For i = 1 To Rng.Count
Ghep = Ghep & "+ " & Rng.Cells(i, 1)
Next
Ghep = Right(Ghep, (Len(Ghep) - 2))

End Function
Rất mong các cao nhân chỉ giáo. Chân thành cảm ơn !

 

[Phuocam]

Em có một cột gồm nhiều chuỗi, em muốn làm một hàm chỉ nối các chuỗi khác nhau
A
B
C
A
12

Hàm ghép chuỗi trả về kết quả : ABC12
Hàm này em xem trên diễn đàn nhưng không biết cách chế biến theo yêu cầu ở trên
Function Ghep(Rng As Range) As String
For i = 1 To Rng.Count
Ghep = Ghep & "+ " & Rng.Cells(i, 1)
Next
Ghep = Right(Ghep, (Len(Ghep) - 2))

End Function
Rất mong các cao nhân chỉ giáo. Chân thành cảm ơn !

Thử code này xem sao:

Function Ghep(Rng As Range) As String
For i = 1 To Rng.Count
If InStr(Ghep, Rng.Cells(i, 1)) = 0 Then
Ghep = Ghep & Rng.Cells(i, 1)
End If
Next
End Function

 

[nguyentrananh]

Rất cảm ơn bạn nhé, mình làm được rồi

 

[comet_1701]

Em có một cột gồm nhiều chuỗi, em muốn làm một hàm chỉ nối các chuỗi khác nhau
A
B
C
A
12

Hàm ghép chuỗi trả về kết quả : ABC12
Hàm này em xem trên diễn đàn nhưng không biết cách chế biến theo yêu cầu ở trên
Function Ghep(Rng As Range) As String
For i = 1 To Rng.Count
Ghep = Ghep & "+ " & Rng.Cells(i, 1)
Next
Ghep = Right(Ghep, (Len(Ghep) - 2))

End Function
Rất mong các cao nhân chỉ giáo. Chân thành cảm ơn !

Hoặc

Function Ghep1(Rng As Range) As String
Dim clls As Range
For Each clls In Rng
    If InStr(Ghep1, clls) = 0 Then
        Ghep1 = Ghep1 & clls
    End If
Next
End Function

 

[hung2412]

Em có một cột gồm nhiều chuỗi, em muốn làm một hàm chỉ nối các chuỗi khác nhau
A
B
C
A
12

Hàm ghép chuỗi trả về kết quả : ABC12
Hàm này em xem trên diễn đàn nhưng không biết cách chế biến theo yêu cầu ở trên
Function Ghep(Rng As Range) As String
For i = 1 To Rng.Count
Ghep = Ghep & "+ " & Rng.Cells(i, 1)
Next
Ghep = Right(Ghep, (Len(Ghep) - 2))

End Function
Rất mong các cao nhân chỉ giáo. Chân thành cảm ơn !

Bạn Up File lên xem sao.

 

[VetMini]

Rất cảm ơn bạn nhé, mình làm được rồi

Tôi thắc mắc là định nghĩa chuỗi của bạn chẳng rõ ràng, làm sao mà làm được?

Nếu có: A B C D 12 E F 1 2
Thì bạn muốn ghép ra ABCD12EF12, hay là ABCD12EF ?
1 và 2 coi như 12 ?