[已解决]分类汇总后如何将只保留一个姓名

楚雪飞扬

请问如何实现sheet1中b列数据不重复数据到sheet2 b列

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-10-17 17:36

修改红色部份就好

Sub demo()
   Set d = CreateObject("Scripting.Dictionary")
   a = Sheet1.UsedRange
   For i = 2 To UBound(a)
      Key = a(i, 1)
      If Not d.exists(Key) Then
         d(Key) = Array(Key, a(i, 2), a(i, 3), a(i, 4), a(i, 5))
      Else
         d(Key) = Array(Key, d(Key)(1), d(Key)(2) + a(i, 3), d(Key)(3) + a(i, 4), d(Key)(4) + a(i, 5))
      End If
   Next
   Sheet2.UsedRange.Offset(1, 0).ClearContents
   Sheet2.[a2].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.Items))
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

修改红色部份就好

Sub demo()
   Set d = CreateObject("Scripting.Dictionary")
   a = Sheet1.UsedRange
   For i = 2 To UBound(a)
      Key = a(i, 1)
      If Not d.exists(Key) Then
         d(Key) = Array(Key, a(i, 2), a(i, 3), a(i, 4), a(i, 5))
      Else
         d(Key) = Array(Key, d(Key)(1), d(Key)(2) + a(i, 3), d(Key)(3) + a(i, 4), d(Key)(4) + a(i, 5))
      End If
   Next
   Sheet2.UsedRange.Offset(1, 0).ClearContents
   Sheet2.[a2].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.Items))
End Sub

祝順心，南無阿彌陀佛！