[배열에 값 넣을때]

[배열에 값 넣을때]

dim strtemp ()

strtemp = Range("G6", Cells(Rows.Count, "G").End(3)).Value

범위의 셀값을 한꺼번에 넣을 수 있다

Sub q1()

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