|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
아래 115642 연속된 중복의 개수 수식에 오류가 있어 다시 올립니다.
==============[몰라요님 글에 대한 답변입니다]==============
수식으로 작성 하는 것이 불가능 한거 같아서 VBA로 작성했습니다.
첨부화일 참고하세요.
Sub UserCount()
Dim sht As Worksheet
Dim rData As Range, rA As Range, rB As Range
Dim rTg As Range
Dim iRow As Integer, iCol As Integer
Dim lColor As Long
Set sht = ActiveSheet
Set rData = sht.Range("C3:K25")
Set rTg = sht.Range("X3")
With rTg.Resize(rData.Rows.Count, rData.Columns.Count)
.Clear
.HorizontalAlignment = xlCenter
End With
MsgBox "기존 계산을 지우고, 새로 카운터합니다.", vbInformation
lColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
For iRow = 1 To rData.Rows.Count
For iCol = 1 To rData.Columns.Count
If rData.Cells(iRow, iCol) = rData.Cells(iRow, iCol + 1) Then
If rA Is Nothing Then
Set rA = rData.Cells(iRow, iCol).Resize(1, 2)
Set rB = rTg.Cells(iRow, iCol).Resize(1, 2)
Else
Set rA = Union(rA, rData.Cells(iRow, iCol).Resize(1, 2))
Set rB = Union(rB, rTg.Cells(iRow, iCol).Resize(1, 2))
End If
Else
If Not rA Is Nothing Then
rB = rA.Cells.Count
rB.Interior.Color = lColor
Set rA = Nothing
Set rB = Nothing
End If
End If
Next
Next
End Sub
|
|