배열연습 - 항목을 횡에서 종으로 바꾸기

배열연습 - 항목을 횡에서 종으로 바꾸기

 

'2차원 배열에 넣는 방식
Sub task1_method1()

 

Dim i_range As Range
Set i_range = Cells(2, 2).Resize(2, 2)  ''resize는 크기 정하는데 매우 유용

Dim i_arr As Variant
i_arr = i_range

 

Dim j_range As Range  ''뿌릴 범위
Set j_range = Cells(5, 2).Resize(2, 2)

j_range = Application.Transpose(i_arr)

With j_range
    .Borders.LineStyle = 1
End With

 

End Sub