[2차원 배열 사용하기]

[2차원 배열 사용하기]

Dim stemp

가로 = ActiveSheet.Cells(2, 2).Value

세로 = ActiveSheet.Cells(3, 2).Value

Set Rng = ActiveSheet.Cells(6, 1)

ReDim stemp(세로, 가로)

For i = 1 To 세로

For k = 1 To 가로

stemp(i, k) = i & "0" & k

Next

Next

Rng.Offset(1, 0).Resize(세로, 가로) = stemp

End Sub