나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 터벅이 (rji1010)

추천:  2
파일:     복사한셀을삽입하여빨간색으로.xlsx (14.7KB) 조회:  2888
제목:   셀을복사하여아래셀에삽입하기
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>위에 셀을 복사하여 아래셀에 삽입하고 글자색을 빨간색으로 바꾸려고합니다. 		　
[불량 게시물 신고]  
조삿갓그냥 매크로 기록 상태에서 원하는 작업을 수행하신 후에 약간만 수정하면 됩니다.

Sub 매크로1()
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Selection.Cells(2, 1).Select
    Selection.Insert Shift:=xlDown
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.Cells(2, 1).Select
End Sub
06-01 (22:12)
ⓧ삭제 ■신고
조삿갓위 프로시저는 현재 선택된(셀포인터가 위치한) 행을 한 줄씩
복사 삽입하는 기능을 수행하고, 이것을 연속 반복하고 싶으면 다음 매크로를 실행하면 됩니다.

Sub repeat()
    Do Until ActiveCell = Empty
        매크로1
    Loop
End Sub
06-01 (22:19)
ⓧ삭제 ■신고
터벅이감사합니다.. 너무초보라.. 한가지만더 어쭙습니다.
복사한셀 전체가 빨간색으로 바꾸고자하는데...
A셀만 빨간색으로 바뀌네요..		06-02 (09:16)
ⓧ삭제 ■신고
조삿갓그렇군요. with 문의 대상을 다음과 같이 범위로 바꿔주면 됩니다.

Sub 매크로1()
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Selection.Cells(2, 1).Select
    Selection.Insert Shift:=xlDown
    With Range(Selection, Selection.End(xlToRight)).Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.Cells(2, 1).Select
End Sub		06-02 (15:08)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2017-06-01(09:43)
최종수정일 : 2017-06-01(09:43)