도쿄사는 외노자

1. 모든 열의 중복행 삭제 '지정한 워크시트에서 중복행 삭제 Sub DeleteDuplicate(TargetSheet) '시트 설정 Set SumSheet = ThisWorkbook.Sheets(TargetSheet) '데이터의 마지막 행 취득 Dim intArray As Variant, i As Integer Dim rng As Range Set rng = SumSheet.UsedRange.Rows With rng '모든 칼럼을 비교 ReDim intArray(0 To .Columns.Count - 1) For i = 0 To UBound(intArray) intArray(i) = i + 1 '중복되는 데이터 삭제 Next i .RemoveDuplicates Columns:=(intArray), He..