질문과 답변
소프트웨어 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 | - | - |
72992 | 기 타| chrome 테마 문제. [6] | 그냥그렇다 | 245 | 03-09 |
72991 | 소프트웨어| 토렌트 ip 확인하는곳 없나요? [4] | 코나 | 603 | 03-09 |
72990 | 윈 도 우| 도와주세요. 고수님들 [1] | 수담 | 394 | 03-09 |
72989 | 윈 도 우| 응용프로그램 오류 후 재부팅 하드인식불가(사진첨부) | fprrmsl | 342 | 03-09 |
72988 | 소프트웨어| 토큰 백업파일 오피스2016 cmd 만들줄실분요 [1] | gkgk77 | 670 | 03-09 |
72987 | 윈 도 우| 우클릭 프로그램 추가 시 문의사항입니다. [2] | PiscesKyle | 197 | 03-09 |
72986 | 윈 도 우| 혹시 일본판 윈도우7프로 32비트 ISO 이미지 구할수 있을까요? [4] | 낭만도동넘 | 416 | 03-09 |
72985 | 윈 도 우| 윈도우10 자체 백업프로그램 이용시 질문 [3] | 이롱이 | 706 | 03-09 |
72984 | 윈 도 우| 윈도우10 은 윈도우창이나 윈도우안에 배경색 어떻게 바꾸... | 센시로 | 768 | 03-09 |
72983 | 하드웨어| 케이스에 있는 하드독 질문있습니다 [2] | 보이져125 | 348 | 03-09 |
72982 | 윈 도 우| Windows 10 RS3 폴더 공유 질문입니다. [1] | 파란하늘촌 | 414 | 03-08 |
72981 | 윈 도 우| 제이유컴님 boot-CH-TEST-2.WIM 궁금점이 있습니다. [1] | 포토엔유 | 256 | 03-08 |
72980 | 윈 도 우| 윈도우10 부팅시 이상하게 토렌트가 자꾸 실행됩니다.. [10] | 센시로 | 2502 | 03-08 |
72979 | 윈 도 우| 윈도우 탐색기에서 "명령 프롬프트 열기" 메뉴를... [1] | 깐지 | 591 | 03-08 |
» | 소프트웨어| excel 매크로에 관한 질문입니다. [2] | 검은눈동자 | 236 | 03-08 |
72977 | 윈 도 우| BIOS ROM 파일은 어떻게 실행하나요 [7] | 치이타 | 612 | 03-08 |
72976 | 윈 도 우| 읜도우단축키 [2] | tkEh | 456 | 03-08 |
72975 | 하드웨어| Windows 10 RS3 에 SKY TV 문제 [13] | mso | 721 | 03-08 |
72974 | 기 타| Batch Script 질문 하나 드립니다. [7] | netic9 | 325 | 03-08 |
72973 | 윈 도 우| 윈10 1703>>1709 [6] | 1703 | 865 | 03-08 |
정확히 내용을 이해하기 어려워서...
생각나는 대로 해봅니다.
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칸을 선택하여
현재셀에 붙이는 내용입니다.
즉, 단축키를 누르면 계속 윗줄을 아래로 복사해 줍니다.
※ 맨윗줄을 상황에 맞게 추가하시면 되겠습니다.