在Excel如何用VBA做统计汇总

Question

各位好，最近一个计划表，但是表中统计项特别多，手工统计较为繁琐，想到用Excel的VBA来做，但是编程写了很久，算法始终有问题，比如我表2中名称栏有“苹果”，“梨”，“桔子”，“葡萄”，“苹果”，“桔子”，“梨”，数量分别是“20”，“13”，“8”，“9”，“10”，“17”，“15”，在表1中按名称进行统计汇总，显示到表1中，重复的只显示一次，而且在最后面的备注栏中显示表2只的哪些序号是满足条件的！！发一个Excel样表图片，请高手帮忙，谢谢！

Answer 1

Sub 查找()
Dim arr, dic As Object, i%, RangA As Range

Set RangA = Range("g4", "i100")
arr = RangA
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(arr)
If dic.exists(arr(i, 2)) Then
dic(arr(i, 2)) = dic.Item(arr(i, 2)) & "、" & arr(i, 3)
Else
dic(arr(i, 2)) = dic.Count + 1 & "|" & arr(i, 2) & "|=SUMIF(H:H,B" & dic.Count + 4 & ",I:I)|" & arr(i, 3)
End If
Next i
dic.Remove ""

Set RangA = Range("a4")

RangA.Offset(0, 0).Resize(dic.Count, 1) = Application.Transpose(dic.Items)
Application.DisplayAlerts = False
RangA.Offset(0, 0).Resize(dic.Count, 1).TextToColumns Other:=True, OtherChar:="|"
Application.DisplayAlerts = True

Set dic = Nothing
End Sub本回答被提问者采纳

Answer 2

　　Sub 条件统计()
　　
　　Dim refg As String
　　refg = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Row
　　
　　Range("B3:C4") = 0
　　
　　For R = 3 To 4
　　For C = 2 To 3
　　For i = 3 To refg
　　
　　If Cells(R, 1) = Cells(i, 5) And Cells(2, C) = Cells(i, 6) Then
　　Cells(R, C) = Cells(R, C) + Cells(i, 7)
　　End If
　　Next
　　Next
　　Next
　　
　　End Sub

Answer 3

可以用数据透视表做啊