|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
우선 작은오리님의 답변 감사드리구요..
지금 작은오리님의 정성에..혼자 해결해보려고 몇시간을 싸우고 있답니다..ㅜ.ㅜ;;
Sub 셀범위복사하장()
Dim Start As Range
Dim Target As Range
Set Start = Sheets("sheet1").Range("B2:K24") ' 복사범위
With Sheets("sheet2") ' 시트2 대상으로
Start.Copy ' 복사
.Range("B2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False ' 붙이고
Application.CutCopyMode = False
Set Target = .Range("B65536").End(xlUp).Offset(1, 0) '
Application.Goto Target, True ' 셀 이동
End With
End Sub
작은오리님의 코드로 해보니..입력된 자료아래의 B열에 셀선택이 되도록 하기는 하는데...
제가 원하는... 다음의 반복 작업을 하려면 안된다는 겁니다.
문제는.. 셀선택이 된 장소부터 붙여넣기가 되어야 하는데..
요기서=> .Range("B2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
Range("B2")가 되어있어서..다시 원점으로 돌아간다는 겁니다.
Range("B2")를..현재 선택된 셀로 바꾸려면 우째야 하나여..?
|
|