|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
색이 있는 셀이 2개가 넘을 경우 제일 처음 것과 마지막 것만 추출이 됩니다.
해결 방법이 없을까요?
==============[삐따기님 글에 대한 답변입니다]==============
If rX.Interior.Color = rColor.Interior.Color Then
'-------------------------------------------------------
' 아래 부분이 잘못되었네요...
'-------------------------------------------------------
'If rColor.Offset(1) = "" Then
' Set rTg = rColor.Offset(1)
'Else
' Set rTg = rColor.End(xlDown).Offset(1)
'End If
'-------------------------------------------------------
' 아래와 같이 수정하세요
'-------------------------------------------------------
If rColor.Offset(1) = "" Then
Set rTg = rColor.Offset(1)
ElseIf rColor.Offset(2) = "" Then
Set rTg = rColor.Offset(2)
Else
Set rTg = rColor.Offset(1).End(xlDown).Offset(1)
End If
rTg.Value = rX.Value
End If
|
|