바로 Range("셀주소")로 사용하지만.. 기본적으로 ActiveSheet가 생략된 것이라는 것을 알고 계셔야합니다.
그래서 다른 시트를 지정할때면 대상시트.범위 로 하셔야합니다.
아래 코드를 참고하세요.
Sub copyToOtherSheet() Dim i As Integer: i = 1 Dim a1 As Integer: a1 = 0 Dim shtSource As Worksheet Dim shtTarget As Worksheet Set shtSource = Sheets("Sheet1") Set shtTarget = Sheets("Sheet1_1")
With shtSource .Range(.Range("c16").Offset((i - 1) * 7, a1), .Range("c16").Offset((i - 1) * 7, 1364)).Copy shtTarget.Range("C16") End With End Sub
안녕하세요?
복사해서 붙여넣을때는 아래처럼 수식을 사용합니다.
복사할범위.copy 붙여넣을범위
다른 시트에 붙여넣으시려면 시트.범위로 정확히 지정해주셔야하구요.
원래 정확한 범위 지정은 아래와 같습니다.
Workbooks("웍북이름").Worksheets("시트이름").Range("셀주소")
Workbook과 Worksheet가 ActiveWorkbook이거나 ActiveSheet일 경우엔 생략이 가능해서
바로 Range("셀주소")로 사용하지만.. 기본적으로 ActiveSheet가 생략된 것이라는 것을 알고 계셔야합니다.
그래서 다른 시트를 지정할때면 대상시트.범위 로 하셔야합니다.
아래 코드를 참고하세요.
Sub copyToOtherSheet()
Dim i As Integer: i = 1
Dim a1 As Integer: a1 = 0
Dim shtSource As Worksheet
Dim shtTarget As Worksheet
Set shtSource = Sheets("Sheet1")
Set shtTarget = Sheets("Sheet1_1")
With shtSource
.Range(.Range("c16").Offset((i - 1) * 7, a1), .Range("c16").Offset((i - 1) * 7, 1364)).Copy shtTarget.Range("C16")
End With
End Sub
완젼한 친절한 설명이었습니다. ㅎㅎ