질문과 답변
소프트웨어 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칸 밑으로 내려오는 내용입니다.
질문은 복사범위가 한개셀이면 상관읍는데요
선택셀 포함하여 우측으로 몇개의셀을 포함하도록 마우스로 먼저 선택지정해주고 단축키를 눌러야 됩니다.
그냥 해당셀 한군데서 단축키 누르면 해당셀포함하여 우측으로 여러개의 셀 몇개를 더 포함하여 복사하는 방법을 알고십습니다.
ㅎ
번호 | 제목 | 글쓴이 | 조회 | 등록일 |
---|---|---|---|---|
[공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
73272 | 오늘 업데이트 SP1 깐사람중 뜬 사람 있으세요? [11] | dddd | 2441 | 02-13 |
73271 | 윈 도 우| 윈도우 8.1 pro - 윈도우 10 pro 업데이트 후 클린설치 인... [3] | sweet | 2440 | 07-19 |
73270 | 윈 도 우| 윈도우 설치시디에 오피스2010통합이 되나요? [2] | 빠져들어 | 2440 | 05-07 |
73269 | 윈 도 우| 윈도우8에는 닷넷프레임워크3.5가 탑제되지 않았나요? [4] | 벌꿀바나나 | 2440 | 05-04 |
73268 | 소프트웨어| 사무실 2013 리테일 사용가능한키 있나요? [5] | 슈소 | 2440 | 04-02 |
73267 | 소프트웨어| 인터넷연결에서 IPv6가 무었인지요 [2] | joe | 2440 | 12-16 |
73266 | 윈 도 우| 윈8프로 설치후 DVD드라이브가 인식이 안됩니다 [1] | 백월산 | 2440 | 09-10 |
73265 | 기 타| USB로 윈도우설치 8일차...1차성공..그러나.. [12] | 사랑비 | 2440 | 08-04 |
73264 | 윈 도 우| 인터넷 사용 흔적 찾는 것 좀 도와주세요 | 워모 | 2440 | 07-22 |
73263 | 서버 / IT| ISP주소는 막아도 상관 없나요? [2] | 응답없음 | 2440 | 10-21 |
73262 | 소프트웨어| 작업 관리자에서 안 죽는 프로그램 [5] | 담울 | 2440 | 09-10 |
73261 | 소프트웨어| lg smart recovery 요청 [1] | 기수 | 2440 | 06-26 |
73260 | 윈 도 우| 요즘 윈도우7만의 부드러운 느낌(?)을 못느끼겠어요... 어... [4] | np2103 | 2440 | 06-02 |
73259 | 하드웨어| BIOS 설정이 저장이 안되는 현상 [2] | 하늘나무 | 2440 | 09-08 |
73258 | 윈 도 우| Windows anytime upgrade로 업그레이드한것과 새로 더 상위... [2] | 키뢍룽 | 2440 | 08-10 |
73257 | 하드웨어| 오피스 설치시 에러메시지가 계속 뜨네요;; | Happiness | 2440 | 05-04 |
73256 | 윈 도 우| 다운로드 C드라이브말고 다른드라이브로 하면 엄청 느립니다ㅠ [1] | 망구 | 2440 | 05-04 |
73255 | 네트워크에서 폴더공유 방법 알고싶습니다. [1] | stopk | 2440 | 08-25 |
73254 | 또 질문이 있습니다. [5] | 이병준 | 2440 | 07-18 |
73253 | 비스타 인증이 안됩니다 [5] | 박병수 | 2440 | 12-14 |
정확히 내용을 이해하기 어려워서...
생각나는 대로 해봅니다.
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칸을 선택하여
현재셀에 붙이는 내용입니다.
즉, 단축키를 누르면 계속 윗줄을 아래로 복사해 줍니다.
※ 맨윗줄을 상황에 맞게 추가하시면 되겠습니다.