질문과 답변
소프트웨어 excel 매크로에 관한 질문입니다.
2018.03.08 20:05
Sub 매크로1()
' 바로 가기 키: Ctrl+q
'
Selection.Copy
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(3, 0).Range("A1").Select
Application.CutCopyMode = False
End Sub
위 내용은 범위를 지정하고 단축키 Ctrl+q를 누르면
한칸 위로 이동해서 복사한 내용을 붙여넣기 하고 3칸 밑으로 내려오는 내용입니다.
질문은 복사범위가 한개셀이면 상관읍는데요
선택셀 포함하여 우측으로 몇개의셀을 포함하도록 마우스로 먼저 선택지정해주고 단축키를 눌러야 됩니다.
그냥 해당셀 한군데서 단축키 누르면 해당셀포함하여 우측으로 여러개의 셀 몇개를 더 포함하여 복사하는 방법을 알고십습니다.
ㅎ
정확히 내용을 이해하기 어려워서...
생각나는 대로 해봅니다.
Sub 매크로1()
'
' 매크로1 매크로
'
' 바로 가기 키: Ctrl+q
'
ActiveCell.Offset(-1, 0).Range("A1:C1").Select '<<== 이부분을 활용해 보세요
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
End Sub
위의 코드는 현재선택된 셀의 바로 윗줄에서 오른쪽으로 3칸을 선택하여
현재셀에 붙이는 내용입니다.
즉, 단축키를 누르면 계속 윗줄을 아래로 복사해 줍니다.
※ 맨윗줄을 상황에 맞게 추가하시면 되겠습니다.