목록시트값 자동입력 (1)

Fly to the sky & Return

[엑셀 vba] 배열을 이용해서 특정 시트 정보를 특정 시트에 입력하기

30개정도 되는 cell 두 컬럼에 20개 정도 되는 내용을 순차적으로 입력하는 vba입니다한 칼럼이 완성되면 다음 칼럼으로 넘어갈때 처음 칼럼 마지막 다음 값부터 입력되도록 코딩한것입니다... 1234567891011121314151617181920212223242526272829303132Sub From_sheet_make_array() Dim myarray As Variant myarray = Range("k3:k22").Value i = 1 k = 0 For Each cell In Range("c3:c33") ' For i = 1 To UBound(myarray) Range("c3").Offset(k, 0).Value = myarray(i, 1) i = i + 1 k = k + 1 If i = U..
카테고리 없음 2016. 4. 5. 21:53
이전 Prev 1 Next 다음