|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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...):
* 아래줄에 질문을 작성하세요 >>
안녕하세요..?
도와주세요..
Sheet 1 에 B2에서 K24(때로는 K28)까지 복사해서..
Sheet 2 에 B2에서 K24(때로는 K28)까지 선택하여 붙여넣기..값으로..한후에..
Sheet 2 에 B2에서 K24(때로는 K28)까지 선택되어 있는 자료아래의 B열에 셀선택이 되도록..
즉..다음의 반복 작업을 하기위해..
B25, 혹은 B29 셀에.. 셀선택이 되도록 코딩을 하고싶습니다.
이제 막..매크로를 사용하기 시작한 초보이오니...
아래의 코드를 보고 웃음지시더라도..^^;
전 여기까지 온것만해도 스스로를 대견하다고..ㅎㅎㅎ
아래꺼..좀 더 좋게 수정해주시면 더욱 저의 내공이 증진되겠구요..^^;
Sub Macro4()
Sheets.Add.Name = "Sheet1"
ActiveWorkbook.Sheets("Sheet1").Tab.ColorIndex = 3
Range("A1").Select
ActiveSheet.Paste
With Selection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Copy
Range("L1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
'요건 어디선가 보구서 베껴 쓰려니..안되더라구요..^^;;
Range("b65536").End(xlUp).Offset(1, 0) = data
End Sub
Sub Macro5()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.LargeScroll Down:=2
Sheets("Sheet1").Select
Cells.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet2").Select
End Sub
|
|