1393| 10
|
[已解决]将sheet2的内容分类汇总分别是填入sheet1对应列 |
1学分
最佳答案Sub demo()
Set d = CreateObject("Scripting.Dictionary")
a = Sheet1.[a2].CurrentRegion
b = Sheet2.[a2].CurrentRegion
For i = 2 To UBound(b)
Key = b(i, 1) & IIf("HP&TP" Like "*" & b(i, 6) & "*", "HP&TP", b(i, 6))
d(Key) = d(Key) + b(i, 4)
Next
For i = 2 To UBound(a)
For k = 12 To 15
Key = a(i, 1) & a(1, k)
If d(Key) Then a(i, k) = d( ...
| ||
发表于 2022-12-8 15:01
|
显示全部楼层
本楼为最佳答案
| ||
发表于 2022-12-8 16:15
|
显示全部楼层
| ||
点评
好喔~~
| ||
| ||
发表于 2022-12-8 16:57
|
显示全部楼层
| ||
| ||
发表于 2022-12-8 17:02
|
显示全部楼层
| ||
点评
不客氣喔~
| ||