엑셀VBA - 복사 붙여넣기/sheet 바꿔 복사하기

엑셀vba 복사 붙여넣기

코드는 아래와 같다.

 

 

​

Sub 복사()

 

   Sheets("Sheet1").Range(Cells(4, 1), Cells(4, 8)).Copy Sheets("Sheet1").Cells(3, 2)

   

End Sub

​​

코드 테스트를 해보자

 

우선 아래와 같이 테스트 파일을 만들자

 

 

 

코드를 실행하자

 

결과는 아래와 같다. 된다.

 

 

 

색을 넣어도 된다. 복사 니까 서식복사 포함인가 보다.

 

 

색 복사 되는지 test

 

다른 시트에 복사가 되는지 테스트 해보자

 

코드는 위의 코드에서 

sheet만 바꿔보자

 

Sub 복사()

 

   Sheets("Sheet1").Range(Cells(4, 1), Cells(4, 8)).Copy Sheets("Sheet2").Cells(3, 2)

   

End Sub

 

결과는 아래와 같다. 된다.

 

단, sheet2는 만들어 놓던지 코드에 추가해야한다.