Đảo 6 vòng, 3 vòng

[phuonghang0210]

Ví dụ :
em có số
- 123 đảo 6 vòng = 123, 132, 213, 231, 312, 321
- 112 đảo 3 vòng = 112, 121, 211
có nghĩa là em muốn excel hiểu :
-xyz
-xzy
-yzx
-yxz
-zxy
-zyx
làm thế nào để ra thế này

 

[SA_DQ]

Bạn thử với cùi bắp này:

Sub XYZ()
 Dim X As Integer, Y As Integer, Z As Integer
 For X = 1 To 3
    For Y = 1 To 3
        For Z = 1 To 3
            If X <> Y And Y <> Z And Z <> X Then
                [B99].End(xlUp).Offset(1).Value = 100 * X + 10 * Y + Z
            End If
        Next Z
    Next Y
 Next X
End Sub

 

[befaint]

Chuyện gì xảy ra vậy?