|
- 엑셀 버전(2016):
안녕하십니까,
엑셀 사용 중에 어려운 부분이 있어 여쭙고자 합니다.
열 기준 월별 '이탈', '거래처' 로 구분을 했는데 '이탈'이 월 별 반복되면, '이탈' 이 표시되는 첫 월 만 제외하고 나머지 셀을 빈칸으로 표시되게 하고 싶습니다. 이 경우 어떻게 하면 될까요?
==============[모리님 글에 대한 답변입니다]==============
아래 매크로를 사용하세요...
Sub userClear()
Dim wst As Worksheet
Dim rStart As Range, rData As Range, rX As Range
Dim vData()
Dim sTemp As String, sPrev As String
Dim lX As Long, lRow As Long, lCol As Long
Const USERWORD As String = "이탈"
Set wst = ActiveSheet
Set rStart = wst.Range("N2")
Set rData = wst.Range(rStart, Cells(rStart.End(xlDown).Row, rStart.End(xlToRight).Column))
ReDim vData(1 To rData.Rows.Count, 1 To rData.Columns.Count)
For lX = 1 To rData.Cells.Count
If lX > 1 Then sPrev = rData.Cells(lX - 1)
With rData.Cells(lX)
sTemp = .Value
If sTemp = USERWORD Then
If sPrev = sTemp Then sTemp = ""
End If
lRow = .Row - rStart.Row + 1
lCol = .Column - rStart.Column + 1
End With
vData(lRow, lCol) = sTemp
Next
rData = vData
End Sub |
|