[已解决]如何用宏代码代替此函数公式。

stxyls

求助:如何用宏代码代替此函数公式。因为此函数计算太多数据时非常非常的慢。如果出现“#N/A”则为新增（把AQ列公式整合到一起）。

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2015-10-4 19:06

看附件中

跳转到最佳答案楼层

fjmxwrs

看附件中

lmze2000

试一下这个代码看看。。

1. Sub Ax()
   
2.     Dim Arr, Brr, Crr, Abz$, Bbz$
   
3.     Arr = Sheets("年初").[a1].CurrentRegion
   
4.     Brr = Sheets("报告期").[a1].CurrentRegion
   
5.     ReDim Crr(1 To UBound(Brr) - 1, 1 To 2)
   
6.     For i = 2 To UBound(Brr)
   
7.         Bbz = Brr(i, 2) & Brr(i, 3) & Brr(i, 4) & Brr(i, 11)
   
8.         For j = 2 To UBound(Arr)
   
9.             Abz = Arr(j, 2) & Arr(j, 3) & Arr(j, 4) & Arr(j, 11)
   
10.             If Bbz = Abz Then flag = 1
    
11.         Next
    
12.         If flag = 1 Then
    
13.             Crr(i - 1, 1) = "正常"
    
14.         Else
    
15.             Crr(i - 1, 2) = "新增"
    
16.         End If
    
17.         flag = 0
    
18.     Next
    
19.     Sheets("报告期").[ap2].Resize(i - 2, 2) = Crr
    
20. End Sub
    

复制代码

stxyls

fjmxwrs 发表于 2015-10-4 19:06
看附件中

谢谢！真神人也！

stxyls

fjmxwrs 发表于 2015-10-4 19:06
看附件中

老师！如果有几万条记录，应该如何修改呢？

fjmxwrs

stxyls 发表于 2015-10-5 12:39
老师！如果有几万条记录，应该如何修改呢？

你没有试下增加数据吗