중소기업의 모든 업무자동화!

Sub Macro()
 Dim strT As String
 Dim X As New Collection
 Dim A, Rev() As Variant, T As Variant
 Dim c As Integer
 Dim n As Long, i As Long
 
  Application.ScreenUpdating = False
    With Sheets("Data")
       ReDim A(1 To 3)
     For c = 3 To 5
        Set A(c - 2) = .Columns(c)
       Next c
     T = .Range("C3").CurrentRegion.Value
    End With
  
      On Error Resume Next
    For i = 2 To UBound(T)
        strT = T(i, 1) & T(i, 2)
         X.Add strT, CStr(strT)
    If Err.Number <> 457 Then
       ReDim Preserve Rev(1 To 3, n)
        Rev(1, n) = T(i, 1)
        Rev(2, n) = T(i, 2)
        Rev(3, n) = WorksheetFunction.SumIfs(A(3), A(1), T(i, 1), A(2), T(i, 2))
           n = n + 1
         End If
       Err.Clear
     Next i
 
    With Range("B4")
      .CurrentRegion.ClearContents
      .Offset(1).Resize(n, 3) = Application.Transpose(Rev)
      .Resize(, 3) = Array("성명", "지역", "실적합계")
    End With
End Sub