엑셀 vba 코드

데이터가 많으신 걸로 봐서 배열을 이용해서 문단을 작성해 드릴게요. 그러면 실행이 더 빨라질 거예요. 또한 데이터가 증가하거나 감소하는 경우에도 동일하게 적용됩니다. 데이터 행 수에 관계없이.

테이블을 보내서 구조가 어떤지 확인하는 것이 가장 좋습니다.

Sub 중복된 우승자가 있나요()

Dim i&, R&, g&, x&

Dim arr, arr1()

시트 사용("sheet1")

R = .Range("B65536").End(xlUp).Row

arr = .Range("B2:C" & R) . 값

For i = 1 To UBound(arr) - 1

If arr(i, 1) = arr(i + 1, 1) And arr(i, 2) = arr(i + 1, 2) 그러면

g = g + 1

ReDim 보존 arr1(1 To 2, 1 To g)

For x = 1에서 2

arr1(x, g) = arr(i, x)

다음 x

End If

다음 i

.Range("E2:F" & .Range("E65536").End(xlUp).Row).ClearContents

.Range("E2").Resize ( UBound(arr1, 2), 2) = Application.Transpose(arr1)

End With

MsgBox "반복 당첨 번호는 다음과 같습니다." & g

여기서 End Sub는 sheet1로 지정되어 있습니다. 테이블 이름이 다른 경우 데이터가 저장된 워크시트 이름으로 직접 수정할 수 있습니다.