Giúp em Hàm tự ghép lô xiên với nhiều hơn 3 số ạ

[vutrang2815]

ví dụ em có 4 số xiên 2 quay (01,02,03,04)x10d muốn ghép tự động thành các cặp

01,02x10d

01,03x10d

01,04x10d

02,03x10d

02,04x10d

03,04x10d

Ai biết chỉ dùm e với.

Tks cả nhà đã đọc tin

 

[snow25]

ví dụ em có 4 số xiên 2 quay (01,02,03,04)x10d muốn ghép tự động thành các cặp

01,02x10d

01,03x10d

01,04x10d

02,03x10d

02,04x10d

03,04x10d

Ai biết chỉ dùm e với.


Tks cả nhà đã đọc tin

File đâu ta.

 

[vutrang2815]

File đâu ta.

dạ đây ạ

 

[CHAOQUAY]

dạ đây ạ

Thử code này nhé bạn

Sub XienQuay()
Dim Chuoi As String
Dim Mang
Dim i, j, k, x, z, t
With Sheet1
    .Range("A5", "B1000").ClearContents
    Chuoi = .Range("A2")
    Mang = Split(Chuoi)
    For i = 0 To UBound(Mang)
        If IsNumeric(Mid(Mang(i), 1, 1)) = True Then
            k = Len(Mang(i))
            If k Mod 3 = 0 Then
                t = Mid(Mang(i), k - 2, 2)
                k = k - 3
            Else
                t = Mid(Mang(i), k - 3, 2)
                k = k - 4
            End If
            For j = 1 To k - 4 Step 3
                For x = j + 3 To k Step 3
                    .Cells(5 + z, 1) = Mid(Mang(i), j, 2)
                    .Cells(5 + z, 2) = Mid(Mang(i), x, 2)
                    .Cells(5 + z, 3) = t
                    z = z + 1
                Next x
            Next j
        End If
    Next i
End With
End Sub

 

[vutrang2815]

Thử code này nhé bạn

Sub XienQuay()
Dim Chuoi As String
Dim Mang
Dim i, j, k, x, z, t
With Sheet1
    .Range("A5", "B1000").ClearContents
    Chuoi = .Range("A2")
    Mang = Split(Chuoi)
    For i = 0 To UBound(Mang)
        If IsNumeric(Mid(Mang(i), 1, 1)) = True Then
            k = Len(Mang(i))
            If k Mod 3 = 0 Then
                t = Mid(Mang(i), k - 2, 2)
                k = k - 3
            Else
                t = Mid(Mang(i), k - 3, 2)
                k = k - 4
            End If
            For j = 1 To k - 4 Step 3
                For x = j + 3 To k Step 3
                    .Cells(5 + z, 1) = Mid(Mang(i), j, 2)
                    .Cells(5 + z, 2) = Mid(Mang(i), x, 2)
                    .Cells(5 + z, 3) = t
                    z = z + 1
                Next x
            Next j
        End If
    Next i
End With
End Sub

Tks anh nhieu a.