|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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...):
* 아래줄에 질문을 작성하세요 >>
시트2에 B열 데이타 끝에 추가 복사 됩니다..
임의의 셀에복사 하는것은 INPUTBOX 로 입력받아야만 될것으로 압니다만..
Sub 셀범위복사하장()
Dim Start As Range
Dim Target As Range
Dim TR As Integer
Set Start = Sheets("sheet1").Range("a2:K24") ' 복사범위
With Sheets("sheet2") ' 시트2 대상으로
Set Target = .Range("B65536").End(xlUp).Offset(1, 0)
TR = Target.Row 'B열의 데이타 마지막 행번호
Start.Copy ' 복사
.Range("b" & TR).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
|
|