首页 > TAG信息列表 > myDic
通过字典和数组进行分类汇总表格数据
Sub 分类汇总求和() Dim arr Sheets("分类汇总").Select Range("a2:h30000").ClearContents h = Sheets("汇总").Cells(65535, 1).End(xlUp).Row arr = Sheets("汇总").Range("a2:g" & h) ReDim brr(1 To UBound(arr), 1 To UBound(a通过字典和数组进行分类汇总表格数据
Sub 分类汇总求和() Dim arr Sheets("分类汇总").Select Range("a2:h30000").ClearContents h = Sheets("汇总").Cells(65535, 1).End(xlUp).Row arr = Sheets("汇总").Range("a2:g" & h) ReDim brr(1 To UBound(arr), 1 To UBound(a