|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
逻辑是:
1.把所有类别变为字典,并初始化值都为0;
2.所有类别相同的词条累加;
3.打印
Sub dic_method()
Set dic = CreateObject("scripting.dictionary")
With Worksheets("汇总")
arr = .[a1].CurrentRegion.Value
For irow = 2 To UBound(arr, 1)
For icol = 2 To UBound(arr, 2)
name_ = .Cells(irow, 1) & ":" & .Cells(1, icol)
dic(name_) = 0
Next
Next
End With
With Worksheets("表一")
brr = .[a1].CurrentRegion.Value
For irow = 2 To UBound(brr, 1)
name2 = brr(irow, 1) & ":" & brr(irow, 2)
If dic.exists(name2) Then
dic(name2) = dic(name2) + brr(irow, 3)
End If
Next
End With
With Worksheets("汇总")
For irow = 2 To UBound(arr, 1)
For icol = 2 To UBound(arr, 2)
name_ = Worksheets("汇总").Cells(irow, 1) & ":" & .Cells(1, icol)
.Cells(irow, icol) = dic(name_)
Next
Next
End With
End Sub
|
|