excel中审核报表和日报表表格用按钮特超慢

qsb3781531

各位高手！

   请帮忙看看，如附件报表，在用审核报表和日报表刷新的时候特别慢（比如CAM日报表，QAE日报表），慢的想死

而且表单是越来越慢，刚开始可以后面就每天变慢，请帮忙看看是什么原因，找了好久，有个类似表单没问题

Yalishanda30

不清楚原因。。。。删除代码也不行，

feiyang8878

1. 
   
2. 
   
3. n = 3
   
4. a = 3
   
5. b = 3
   
6. For m = 2 To 120
   
7. If Range("Ah" & m).Value = Range("a3").Value Then
   
8. Range("g" & a).Value = Range("Ag" & m)
   
9. a = a + 1
   
10. End If
    
11. Next m
    
12. 
    
13. n = 3
    
14. a = 3
    
15. b = 3
    
16. For m = 2 To 120
    
17. If Range("Ah" & m).Value = Range("p3").Value Then
    
18. Range("w" & a).Value = Range("Ag" & m)
    
19. a = a + 1
    
20. End If
    
21. Next m
    
22. 
    
23. 
    
24. n = 17
    
25. a = 17
    
26. b = 17
    
27. For m = 2 To 120
    
28. If Range("Ah" & m).Value = Range("a17").Value Then
    
29. Range("g" & a).Value = Range("Ag" & m)
    
30. a = a + 1
    
31. End If
    
32. Next m
    
33. 
    
34. n = 17
    
35. a = 17
    
36. b = 17
    
37. For m = 2 To 120
    
38. If Range("Ah" & m).Value = Range("p17").Value Then
    
39. Range("w" & a).Value = Range("Ag" & m)
    
40. a = a + 1
    
41. End If
    
42. Next m
    
43. 
    
44. 
    
45. n = 31
    
46. a = 31
    
47. b = 31
    
48. For m = 2 To 120
    
49. If Range("Ah" & m).Value = Range("a31").Value Then
    
50. Range("g" & a).Value = Range("Ag" & m)
    
51. a = a + 1
    
52. End If
    
53. Next m
    
54. 
    
55. n = 31
    
56. a = 31
    
57. b = 31
    
58. For m = 2 To 120
    
59. If Range("Ah" & m).Value = Range("p31").Value Then
    
60. Range("w" & a).Value = Range("Ag" & m)
    
61. a = a + 1
    
62. End If
    
63. Next m
    
64. 
    
65. 
    
66. n = 45
    
67. a = 45
    
68. b = 45
    
69. For m = 2 To 120
    
70. If Range("Ah" & m).Value = Range("a45").Value Then
    
71. Range("g" & a).Value = Range("Ag" & m)
    
72. a = a + 1
    
73. End If
    
74. Next m

复制代码

我感觉是逻辑问题吧，不能考虑一次循环搞定吗？我只简单看了一下

microyip

主要原因估计是里面存在大量的“组”公式，相互调用引起的，每次打开的确耗时太多。删除公式后，明显速度正常了

mmx1122

不用想，肯定有大量公式。尤其是满屏的公式，呵呵了我。

qsb3781531

已经解决了