[已解决]VBA逐行计数及统计重复次数

楚雪飞扬

1.根据表头（AB2---AM2）名称
匹配M列数据，当（AB2---AM2）名称与M列数则在当行填入“1”,空值进填“0”
2.统计（AB-AM）重复出现的次数
将结果在AO更输出
数据比较多，大概有13W多条数据，希望能用数组来实现

最佳答案

月排行榜 / 总排行榜

林木水

2022-6-16 12:50

1. Sub dome()
   
2. Dim arr(), brr, crr, i, j
   
3. brr = Sheet1.Range("M3:M255")
   
4. crr = Sheet1.Range("AB2:AM2")
   
5. ReDim arr(1 To UBound(brr), 1 To UBound(crr, 2))
   
6. For i = 1 To UBound(brr)
   
7.     For j = 1 To UBound(crr, 2)
   
8.         If brr(i, 1) = crr(1, j) Then
   
9.             arr(i, j) = 1
   
10.         Else
    
11.             arr(i, j) = 0
    
12.         End If
    
13.     Next
    
14. Next i
    
15. Sheet1.Range("ab3").Resize(UBound(brr), UBound(crr, 2)) = arr
    
16. Sheet1.Range("ap2") = "=SUM(OFFSET(AB:AB,,ROW(A1)-1))"
    
17. Sheet1.Range("ap2:ap13").FillDown
    
18. 
    
19. 
    
20. End Sub
    

复制代码

跳转到最佳答案楼层

sam-wang

不好意思，看不太懂，可否請您舉例說明詳細，謝謝

楚雪飞扬

sam-wang 发表于 2022-6-16 11:35
不好意思，看不太懂，可否請您舉例說明詳細，謝謝

例：                                      AB2:二倒尾数                  AH2:优化-裂痕
M3,的值为：二倒尾数           AB3单元格值填1                 AH3单元格值填0
M4，的值为：二倒尾数         AB4单元格值填1                 AH3单元格值填0
M5:的值为：优化-裂痕          AB5单元格值填0                AH3单元格值填1

以此类推,第二行为表头
从第二行表头的名称匹配M3列以下出来对应的内容，进行计数，

楚雪飞扬

sam-wang 发表于 2022-6-16 11:35
不好意思，看不太懂，可否請您舉例說明詳細，謝謝

老师您好，帮忙看下，日期取值结果出错

林木水

1. Sub dome()
   
2. Dim arr(), brr, crr, i, j
   
3. brr = Sheet1.Range("M3:M255")
   
4. crr = Sheet1.Range("AB2:AM2")
   
5. ReDim arr(1 To UBound(brr), 1 To UBound(crr, 2))
   
6. For i = 1 To UBound(brr)
   
7.     For j = 1 To UBound(crr, 2)
   
8.         If brr(i, 1) = crr(1, j) Then
   
9.             arr(i, j) = 1
   
10.         Else
    
11.             arr(i, j) = 0
    
12.         End If
    
13.     Next
    
14. Next i
    
15. Sheet1.Range("ab3").Resize(UBound(brr), UBound(crr, 2)) = arr
    
16. Sheet1.Range("ap2") = "=SUM(OFFSET(AB:AB,,ROW(A1)-1))"
    
17. Sheet1.Range("ap2:ap13").FillDown
    
18. 
    
19. 
    
20. End Sub
    

复制代码

楚雪飞扬

林木水 发表于 2022-6-16 12:50

感谢您 的帮忙