VBA để kết quả theo cột (1 người xem)

[duynhatgpe]

Chào tất cả mọi người

Trong bài tách ghép số bằng VBA(code For…Next) mình đã hiểu vàlàm được nhưng để kết quả xuất hiện trên môt dòng vẫn chưa làm được ,xin mọingười chỉ cho mình hiểu chổ này nha ..thành thật cảm ơn !

 

[hungpecc1]

Chào tất cả mọi người

Trong bài tách ghép số bằng VBA(code For…Next) mình đã hiểu vàlàm được nhưng để kết quả xuất hiện trên môt dòng vẫn chưa làm được ,xin mọingười chỉ cho mình hiểu chổ này nha ..thành thật cảm ơn !

đoán là vậy :

Sub xXx()
Dim tmp, i&, j&, n&, Arr
    tmp = Range("A1")
    ReDim Arr(1 To Len(tmp) ^ 2, 1 To 1)
    For i = 1 To Len(tmp)
        For j = 1 To Len(tmp)
            n = n + 1
            Arr(n, 1) = Mid(tmp, i, 1) & Mid(tmp, j, 1)
        Next
    Next
    Range("B1").Resize(n, 1) = Arr
End Sub

 

[duynhatgpe]

thành thật cảm ơn !chúc luôn vui vẻ và gặp nhiều may mắn!

 

[duynhatgpe]

đoán là vậy :

Sub xXx()
Dim tmp, i&, j&, n&, Arr
    tmp = Range("A1")
    ReDim Arr(1 To Len(tmp) ^ 2, 1 To 1)
    For i = 1 To Len(tmp)
        For j = 1 To Len(tmp)
            n = n + 1
            Arr(n, 1) = Mid(tmp, i, 1) & Mid(tmp, j, 1)
        Next
    Next
    Range("B1").Resize(n, 1) = Arr
End Sub

"Arr(n, 1) = Mid(tmp, i, 1) & Mid(tmp, j, 1)"
cho mình hiểu thêm chổ này khi thay "&" bằng "+" thì kết quả lại như nhau , hihi xin cảm ơn!