Ad cho mình hỏi nếu muốn ghi dữ liệu này vào cột...

Ad cho mình hỏi nếu muốn ghi dữ liệu này vào cột A:C thì phải viết Code như thế nào? Mình có thử như này nhưng ko đúng (Sub Mang_Hai_Chieu()
Dim Arr(0 To 1, 0 To 2) As Variant
Dim i As Long, j As Long
For i = LBound(Arr) To UBound(Arr)
For j = LBound(Arr, 2) To UBound(Arr, 2)
Arr(i, j) = i & ":" & j
Next j
Next i
Debug.Print "i", "j", "Gia tri"
With Sheet4
.Range("a1").Value = "i"
.Range("b1").Value = "j"
.Range("c1").Value = "Gia tri"
End With
For i = LBound(Arr) To UBound(Arr)
For j = LBound(Arr, 2) To UBound(Arr, 2)
With Sheet4
.Range("a" & i) = i
.Range("b" & i) = j
.Range("c" & i) = Arr(i, j)
'Debug.Print i, j, Arr(i, j)
End With
Next j
Next i
End Sub)
Nhờ Ad chỉ giùm cách ghi dữ liệu ra bảng tính. Xin cảm ơn...!