Excel에서 여러 행의 고정 된 수의 셀을 한 열로 바꿔서 넣으십시오.

Question

VBA에서 여러 행의 고정 된 수의 셀을 어떻게 하나의 열로 바꿀 수 있습니까? 예 : 다른 워크 시트의 A 열에 1-50 행의 처음 10 개 셀 (A-J 열).

Answer 1

첫 번째 워크 시트에 10x10 범위가 있다고 가정하면 A1입니다.

k=1 
for i = 1 to 10 
    for j = 1 to 10 
     range(i,j).copy 
     workbooks("wb2").sheets("ws").Range(k,1).pastespecial xlValues 
     k= k+1 
    next 
next 

: 저는 현재 컴퓨터에서 Excel을 사용하지 않으므로 테스트되지 않았습니다.