이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 113
![[레벨:4]](http://abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1613point (21%), 레벨:4/30"){kind=icon}
고수가되고파아래 코드는 가령, B1~B200셀을 범위 선택하고 매크로를 실행하면 B1셀을 복사하여 B2 셀에 수식복사 B3셀을 복사하여 B4셀에 수식복사 등등 위 셀을 복사하여 아래셀에 수식복사하는 코드입니다.그런데 B1~B2셀 병합, B3~B4셀 병합, ..... B199~B200셀병합 되어 있는 상태에서 B1~B200셀을 범위 선택하고 매크로를 실행하면 오류가 납니다. 셀이 병합되어 있어도 실행되게 하려면 어떻게 수정되어야 하는지요?병합이 2개가 될 수도 있고 3개가 될 수도 있습니다. 범위내에서의 병합은 항상 규칙적입니다.
Sub 셀아래로_수식복사(ByVal Target As Range)
Dim oComment As Comment
For Each rCell In Target.Areas
With rCell
For r = 1 To .Rows.Count Step 2
.Rows(r).Copy
.Rows(r + 1).PasteSpecial xlPasteFormulas '수식 복사
.Rows(r + 1).PasteSpecial xlPasteComments '메모 복사
Next r
End With
Next rCell
Application.CutCopyMode = False
End Sub
Sub 셀아래로_수식복사(ByVal Target As Range)
Dim oComment As Comment
For Each rCell In Target.Areas
With rCell
For r = 1 To .Rows.Count Step 2
.Rows(r).Copy
.Rows(r + 1).PasteSpecial xlPasteFormulas '수식 복사
.Rows(r + 1).PasteSpecial xlPasteComments '메모 복사
Next r
End With
Next rCell
Application.CutCopyMode = False
End Sub
