Giúp mình code VBA thay đổi vị trí các số trong ô

[hoang0569]

Giúp mình code VBA lần lượt thay đổi hết vị trí các số trong 1ô sang lần lượt từng ô khác, mình gửi File, mong được anh em giúp,cảm ơn nhiều

 

[Quang_Hải]

Giúp mình code VBA lần lượt thay đổi hết vị trí các số trong 1ô sang lần lượt từng ô khác, mình gửi File, mong được anh em giúp,cảm ơn nhiều

Đây là thuật toán hoán vị, nhưng mục đích là gì vậy bạn? Nếu cho công việc văn phòng thì mình sẽ code giúp cho. Bạn cũng nên đưa file chuẩn lên, chứ code rồi mà code lại thì không thích đâu

 

[1convit789]

Giúp mình code VBA lần lượt thay đổi hết vị trí các số trong 1ô sang lần lượt từng ô khác, mình gửi File, mong được anh em giúp,cảm ơn nhiều

Bạn xem thế này được chưa nha!

Sub dfad()
Dim arr As Object
Dim brr As Variant
Dim a, b, c, d, i, j As Integer
Set arr = CreateObject("scripting.dictionary")
ReDim brr(1 To 6, 1 To 4)
For a = 1 To 4
For b = 1 To 4
For c = 1 To 4
For d = 1 To 4

If a <> b And a <> c And a <> d And b <> c And b <> d And c <> d Then
With arr
i = i + 1
.Add i, a & b & c & d

End With
End If
Next d
Next c
Next b
Next a
For a = 1 To 4
For b = 1 To 6
j = j + 1

brr(b, a) = arr.Item(j)

Next b
Next a

Range("c3").Resize(6, 4).Value = brr
End Sub