Em nhờ mọi người giúp em tách và ghép chuỗi với ạ! Em cảm ơn trước ạ!

[maixuanvuong276]

Vấn đề em mô tả trong file mong các cao nhân đi ngang giúp đỡ em với ạ. Em cảm ơn nhiều ạ!

 

[VetMini]

Bạn là thành viên bao lâu rồi, đã đặt nhiều bài hỏi rồi.
Nhưng cái căn bản là phạm luật "tiêu đề chung chung" vẫn phải để người ta nhắc mãi?

 

[maixuanvuong276]

Bạn là thành viên bao lâu rồi, đã đặt nhiều bài hỏi rồi.
Nhưng cái căn bản là phạm luật "tiêu đề chung chung" vẫn phải để người ta nhắc mãi?

em cảm ơn anh. Em xin lỗi ạ! Em sửa lại rồi ạ!

 

[SA_DQ]

Sub GhepChuoi()
 Dim J As Long, W As Long, Z As Integer
 Dim Str1 As String, Str2 As String
  
 Str1 = [B4].Value
 Str2 = CStr([B5].Value) & CStr([C5].Value)
 ReDim Arr(1 To Len(Str1), 1 To Len(Str2)) As String
 For J = 1 To Len(Str1)
    For Z = 1 To Len(Str2)
        Arr(J, Z) = Mid(Str1, J, 1) & Mid(Str2, Z, 1)
    Next Z
 Next J
 [E11].Resize(J - 1, Z - 1).Value = Arr()
End Sub

 

[HUONGHCKT]

Vấn đề em mô tả trong file mong các cao nhân đi ngang giúp đỡ em với ạ. Em cảm ơn nhiều ạ!

Góp vui.

Function tach(S As String, p As Integer)
   Dim buff() As String
   buff = Split(StrConv(S, vbUnicode), Chr$(0))
   ReDim Preserve buff(UBound(buff) - 1)
   tach = Join(buff, ",")
End Function

Sub Ghep()
Dim i&, J&, k&, t&
Dim S, gh, KQ()
On Error Resume Next
S = Split(tach(Sheet1.[B4], 1), ",")
gh = Split(tach(Sheet1.[B5] & Sheet1.[C5], 1), ",")
ReDim KQ(1 To UBound(S) + 1, 1 To UBound(gh) + 1)
For i = 0 To UBound(S)
k = k + 1: t = 0
    For J = 0 To UBound(gh)
        t = t + 1
        KQ(k, t) = S(i) & gh(J)
    Next J
Next i
Sheet1.Range("E12").Resize(k, t) = KQ
End Sub

P/S: hàmUDF tach là của anh @Vô danh Tiểu tốt và Anh @Phuocam

 

[maixuanvuong276]

Sub GhepChuoi()
 Dim J As Long, W As Long, Z As Integer
 Dim Str1 As String, Str2 As String
 
 Str1 = [B4].Value
 Str2 = CStr([B5].Value) & CStr([C5].Value)
 ReDim Arr(1 To Len(Str1), 1 To Len(Str2)) As String
 For J = 1 To Len(Str1)
    For Z = 1 To Len(Str2)
        Arr(J, Z) = Mid(Str1, J, 1) & Mid(Str2, Z, 1)
    Next Z
 Next J
 [E11].Resize(J - 1, Z - 1).Value = Arr()
End Sub

Cảm ơn a rất nhiều ạ! em làm đucợ rồi ạ!

 

[maixuanvuong276]

Sub GhepChuoi()
 Dim J As Long, W As Long, Z As Integer
 Dim Str1 As String, Str2 As String
 
 Str1 = [B4].Value
 Str2 = CStr([B5].Value) & CStr([C5].Value)
 ReDim Arr(1 To Len(Str1), 1 To Len(Str2)) As String
 For J = 1 To Len(Str1)
    For Z = 1 To Len(Str2)
        Arr(J, Z) = Mid(Str1, J, 1) & Mid(Str2, Z, 1)
    Next Z
 Next J
 [E11].Resize(J - 1, Z - 1).Value = Arr()
End Sub

anh ơi cho em hỏi nếu ghép với chính nó như thì như thế nào để được kết quả là: ví dụ abcd kết quả ghép thành ab ,ac,ad,bc,bd,cd không lấy aa, bb,cc ạ! em cảm ơn!

 

[SA_DQ]

Có thể đây là ước muốn của bạn:

Sub LienKetNoi()
 Dim StrC As String:            Dim J As Integer, W As Integer

 StrC = [B4].Value
 For J = 1 To Len(StrC) - 1
    For W = J + 1 To Len(StrC)
        Cells(987, "R").End(xlUp).Offset(1).Value = Mid(StrC, J, 1) & Mid(StrC, W, 1)
    Next W
 Next J
End Sub