[已解决]怎么求和？

dfsfsa

E列有重复关键字1，I列包含字母a和b的关键字2，把关键字1和关键字2对应的数字按顺序写在K列到N列，求和写在O列到Q列，效果请看表1

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-5-15 14:29

1. Sub aaa()
   
2. Dim arr, brr, r1&, r2&, c1&, c2
   
3. arr = Range("e6:i" & [i65536].End(3).Row)
   
4. ReDim brr(1 To UBound(arr) * 2, 1 To 7)
   
5. r1 = 1: r2 = 1: c2 = 2
   
6. For i = 1 To UBound(arr)
   
7.   If InStr(arr(i, 5), "a") Then
   
8.     c1 = c1 + 1
   
9.     If c1 = 3 Then
   
10.       c1 = 1
    
11.       r1 = r1 + 4
    
12.     End If
    
13.     brr(r1, c1) = arr(i, 3)
    
14.     brr(r1, 5) = brr(r1, 5) + arr(i, 3)
    
15.     brr(r1, 7) = brr(r1, 7) + arr(i, 3)
    
16.   End If
    
17.   If InStr(arr(i, 5), "b") Then
    
18.     c2 = c2 + 1
    
19.     If c2 = 5 Then
    
20.       c2 = 3
    
21.       r2 = r2 + 4
    
22.     End If
    
23.     brr(r2, c2) = arr(i, 3)
    
24.     brr(r2, 6) = brr(r2, 6) + arr(i, 3)
    
25.     brr(r2, 7) = brr(r2, 7) + arr(i, 3)
    
26.   End If
    
27. Next i
    
28. [k6].Resize(IIf(r1 > r2, r1, r2), 7) = brr
    
29. End Sub

复制代码

跳转到最佳答案楼层

dfsfsa

帮个忙？

dfsfsa

能不能用字典和数组？

pengyx

包含字母a对应数据1、包含字母b对应数据1，都只有2个吗？2个就是2列，如果是N个不是要N列吗？excel2003只有256列，数据多了表装不了，数据少可以用公式。

大灰狼1976

1. Sub aaa()
   
2. Dim arr, brr, r1&, r2&, c1&, c2
   
3. arr = Range("e6:i" & [i65536].End(3).Row)
   
4. ReDim brr(1 To UBound(arr) * 2, 1 To 7)
   
5. r1 = 1: r2 = 1: c2 = 2
   
6. For i = 1 To UBound(arr)
   
7.   If InStr(arr(i, 5), "a") Then
   
8.     c1 = c1 + 1
   
9.     If c1 = 3 Then
   
10.       c1 = 1
    
11.       r1 = r1 + 4
    
12.     End If
    
13.     brr(r1, c1) = arr(i, 3)
    
14.     brr(r1, 5) = brr(r1, 5) + arr(i, 3)
    
15.     brr(r1, 7) = brr(r1, 7) + arr(i, 3)
    
16.   End If
    
17.   If InStr(arr(i, 5), "b") Then
    
18.     c2 = c2 + 1
    
19.     If c2 = 5 Then
    
20.       c2 = 3
    
21.       r2 = r2 + 4
    
22.     End If
    
23.     brr(r2, c2) = arr(i, 3)
    
24.     brr(r2, 6) = brr(r2, 6) + arr(i, 3)
    
25.     brr(r2, 7) = brr(r2, 7) + arr(i, 3)
    
26.   End If
    
27. Next i
    
28. [k6].Resize(IIf(r1 > r2, r1, r2), 7) = brr
    
29. End Sub

复制代码

dfsfsa

大灰狼1976 发表于 2017-5-15 14:29

谢谢，我试一下

dfsfsa

pengyx 发表于 2017-5-15 14:18
包含字母a对应数据1、包含字母b对应数据1，都只有2个吗？2个就是2列，如果是N个不是要N列吗？excel2003只有 ...

只有2个，是固定的

dfsfsa

大灰狼1976 发表于 2017-5-15 14:29

用字典解决是不是简单点，能不能让我学习一下字典？

大灰狼1976

dfsfsa 发表于 2017-5-15 14:44
用字典解决是不是简单点，能不能让我学习一下字典？

你这个不太适用字典，你再发个其他的要求我来看一下，字典很简单的。

dfsfsa

大灰狼1976 发表于 2017-5-15 14:48
你这个不太适用字典，你再发个其他的要求我来看一下，字典很简单的。

关键字增加2行。看看代码怎么修改？