질문과 답변
소프트웨어 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 | - | - |
73004 | 윈 도 우| 윈도우10 인데 현재 관리자 권한인지 확인하는 방법이 뭔지... [4] | 센시로 | 616 | 03-10 |
73003 | 소프트웨어| 배치파일 고수님 도움을 주세요 [6] | 좋은데이 | 344 | 03-10 |
73002 | 하드웨어| usb 3.0 메모리를 [4] | MMX | 545 | 03-10 |
73001 | 하드웨어| 노트북에 램이 12기가인데, 줄여도 될까요? [6] | 기억의멜로 | 2156 | 03-10 |
73000 | 윈 도 우| RS4 로 업데이트후 이상한 현상? [1] | never | 630 | 03-10 |
72999 | 윈 도 우| 윈도우 해시값 보는 사이트 없나요? [6] | Pilot_ | 394 | 03-10 |
72998 | 소프트웨어| 웹 암호관리 Lastpass 에서 <CSV파일 가져오기> 질문 [1] | 영감-2 | 289 | 03-09 |
72997 | 하드웨어| INTEL 600P M.2 NVMe 128GB 입니다. [5] | massekao | 476 | 03-09 |
72996 | 윈 도 우| 윈10 [2] | 이탈 | 518 | 03-09 |
72995 | 윈 도 우| inccessible boot device에러 [2] | 이탈 | 470 | 03-09 |
72994 | 윈 도 우| 윈도우7 마우스 우클릭시 개인설정이 존재하지 않습니다. [1] | votto | 487 | 03-09 |
72993 | 윈 도 우| 윈도우7 업데이트 관련하여 질문드립니다.(SUK님이 봐주시... [13] | -엔지니어- | 546 | 03-09 |
72992 | 윈 도 우| 꾀나 전에,, 윈도우 자동 설치 스크립트를 본거 같은데 ,, [8] | ZzangD0L | 407 | 03-09 |
72991 | 기 타| chrome 테마 문제. [6] | 그냥그렇다 | 272 | 03-09 |
72990 | 소프트웨어| 토렌트 ip 확인하는곳 없나요? [4] | 코나 | 634 | 03-09 |
72989 | 윈 도 우| 도와주세요. 고수님들 [1] | 수담 | 421 | 03-09 |
72988 | 윈 도 우| 응용프로그램 오류 후 재부팅 하드인식불가(사진첨부) | fprrmsl | 364 | 03-09 |
72987 | 소프트웨어| 토큰 백업파일 오피스2016 cmd 만들줄실분요 [1] | gkgk77 | 697 | 03-09 |
72986 | 윈 도 우| 우클릭 프로그램 추가 시 문의사항입니다. [2] | PiscesKyle | 225 | 03-09 |
72985 | 윈 도 우| 혹시 일본판 윈도우7프로 32비트 ISO 이미지 구할수 있을까요? [4] | 낭만도동넘 | 445 | 03-09 |
정확히 내용을 이해하기 어려워서...
생각나는 대로 해봅니다.
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칸을 선택하여
현재셀에 붙이는 내용입니다.
즉, 단축키를 누르면 계속 윗줄을 아래로 복사해 줍니다.
※ 맨윗줄을 상황에 맞게 추가하시면 되겠습니다.