虚心求教跨表条件求和代码问题

lvselj

遇到的问题，条件如果出现空白，就无法正常输出结果，另外代码好像有点繁琐，特别是输出的部分，底子太弱不知道如果修改和简化

无敌小猪猪

仅供参考！

ykcbf1100

这个比较简单的。

主要是你VBA基础不实。

gwjkkkkk

请楼主参考。。。

feilanga

1. Sub 条件求和()
   
2.     Dim dic As Object
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     arr = Sheet2.Range("a1").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         If Len(arr(i, 1)) > 0 Then
   
7.             Key = arr(i, 1) & ""
   
8.             dic(Key) = dic(Key) + Val(arr(i, 2))
   
9.         End If
   
10.     Next
    
11.     brr = Sheet1.Range("A1:B" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row) '数据源装入数组
    
12.     For i = 2 To UBound(brr)
    
13.         If brr(i, 1) <> "" Then
    
14.             Key = brr(i, 1) & ""
    
15.             If dic.Exists(Key) Then
    
16.                 brr(i, 2) = dic(Key)
    
17.             End If
    
18.         End If
    
19.     Next
    
20.     Sheet1.Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
21. End Sub

复制代码

feilanga

代码的好坏不在于代码的多和少, 写法有很多种,选择一个自己最熟悉的写法,多使用变量,会让代码看起来更清晰.解题的逻辑在于每一步知道自己要干什么. 然后照着这个方向去写代码 首先无非就是源数据怎么样才可以装入数组,数据的格式多样,选择适合的装入方法就好  再就是把关键字装入字典并累加和值,之后把条件区装入数组,关键字排除空值,从字典中取出关键字对应的项值 重新输出到单元格 就是这么一个逻辑

feilanga

if  then  end if  这个要写完整,不要因为可以省略end if 就写到一行里面去,这是一种不好的习惯.代码的行数多少没有任何意义

ykcbf1100

楼主说虚心求教，其实一点都不虚心。这么多人帮他，他连一句回复都没有。

lvselj

ykcbf1100 发表于 2022-8-19 11:03
楼主说虚心求教，其实一点都不虚心。这么多人帮他，他连一句回复都没有。

对不起，给您带来困惑了，这段时间家里出现了些问题，工作和学习上耽搁了，学生在这里，再次感谢各位老师的帮助。谢谢