[resize 와 transpose 사용법]

[resize 와 transpose 사용법]

Set a = r항목.Offset(1, 0) '사용량'이라는 글자의 바로 아래, '전력' 사용량

Worksheets(str).Cells(iDateRow, 3).Resize(, 3) = Application.Transpose(a.Resize(3))

Resize(, 3) = Resize(1, 3) 같은 의미이다.

Sheet2.Range("c4").Resize(L, 1) = Sheet1.Range("E5").Resize(L).Value2

오른쪽에 value를 , 왼쪽은 주소

또는 이런 식으로도 가능

Set k = r.Resize(, 3)

Set o = rngC.Offset(i + 1, 0)

o.Resize(, 3) = k.Value