写一段VBA代码，将同一项目的借方、贷方都累计到同项目第一行，删除其他行。

lhteee

一招秒杀 发表于 2024-8-9 12:17
点点鼠标，拖拉几下就好，何必写什么代码

上万行数据、汇总的项目几千项的时候，还是需要代码的！

lhteee

kyxfyzg 发表于 2024-8-9 13:11
原表格位置上生成新表格，并且将其他多余的数据删除，希望能够帮助到你

感谢，感谢，谢谢！

lhteee

于箱长 发表于 2024-8-9 13:16
你把E列项目，打乱顺序再试一下

只是空行没有删除，数据是正确的。我使用代码的前提就是先排序，排序是前期工作

lhteee

无关岁月 发表于 2024-8-8 21:14

是在您的代码基础上修改的，谢谢！！！

songshihai

字典+数组的基本套路!!!!!!!!!!!!!!!!!!!!!!!

songshihai

shiruiqiang 发表于 2024-8-8 21:43
Sub test()
Dim arr, brr
Dim dic

为什么不在上面的循环中就把姓名放到字典的item中?

于箱长

lhteee 发表于 2024-8-9 20:22
只是空行没有删除，数据是正确的。我使用代码的前提就是先排序，排序是前期工作

行 自己喜欢就好

一招秒杀

lhteee 发表于 2024-8-9 20:13
上万行数据、汇总的项目几千项的时候，还是需要代码的！

它好像有个名字，叫Power Query，上万算什么，小意思了。那些复杂冗长的代码很容易出错的，很初级的人才只会写那些弱爆了的幼稚代码。

lhteee

一招秒杀 发表于 2024-8-10 07:55
它好像有个名字，叫Power Query，上万算什么，小意思了。那些复杂冗长的代码很容易出错的，很初级的人才 ...

可惜，不会用

lhteee

1. Sub 汇总()
   
2. Set 字典 = CreateObject("scripting.dictionary")
   
3. arr = Range([a3], Cells(Cells(Rows.Count, 1).End(xlUp).Row, 3))
   
4. For i = 1 To UBound(arr)
   
5. If 字典.exists(arr(i, 1)) Then
   
6. 字典(arr(i, 1)) = Array(字典(arr(i, 1))(0), 字典(arr(i, 1))(1) + arr(i, 2), 字典(arr(i, 1))(2) + arr(i, 3))
   
7. Else
   
8. 字典(arr(i, 1)) = Array(arr(i, 1), arr(i, 2), arr(i, 3))
   
9. End If
   
10. Next i
    
11. brr = Application.Transpose(Application.Transpose(字典.items))
    
12. [e3:g100001].Clear
    
13. [e3].Resize(UBound(brr), UBound(brr, 2)) = brr
    
14. End Sub
    

复制代码