[已解决]用vba实现自动填充的问题

wetz123

我有一个数据量很大的文件，里面用了很多函数公式，而且很多公式都是连动的，即改变一个原始数据，就要让所有函数公式都重新计算一次，这样显得速度非常慢。我想把其中的一部分函数公式改成vba自动填充，这样可以提高运行速度，不知道要怎么改？
vba实现自动填充.rar (2.23 KB, 下载次数: 50)

2011-8-16 13:51 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-8-16 16:58

回复 wetz123 的帖子

1. 
   
2. Sub 添加公式()
   
3.     ROW1 = Sheets("SHEET1").Range("A65536").End(xlUp).Row
   
4.     For i = 3 To ROW1
   
5.         Range("G" & i).FormulaR1C1 = _
   
6.         "=IF(LEN(RC2)>0,VLOOKUP(RC2,[我的进销存模板1]进货表!R1C[-5]:R65536C[1],2,0),"""")"
   
7.         Range("H" & i).FormulaR1C1 = _
   
8.         "=IF(LEN(RC2)>0,VLOOKUP(RC2,[我的进销存模板1]进货表!R1C[-6]:R65536C,4,0),"""")"
   
9.         Range("I" & i).FormulaR1C1 = _
   
10.         "=IF(LEN(RC2)>0,VLOOKUP(RC2,[我的进销存模板1]进销存统计!R1C[-7]:R65536C[-1],7,0),"""")"
    
11.         Range("J" & i).FormulaR1C1 = "=IF(RC[-8]>0,RC[-7]*RC[-6],"""")"
    
12.     Next i
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

wetz123

等待回答，希望高手赐教

那么的帅

回复 wetz123 的帖子

1. 
   
2. Sub 添加合计()
   
3.     ROW1 = Sheets("SHEET1").Range("A65536").End(xlUp).Row
   
4.     For I = 3 To ROW1
   
5.         Range("H" & I).FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
   
6.     Next I
   
7. End Sub
   
8. 
   

复制代码

vba实现自动填充公式.rar (10.39 KB, 下载次数: 56)

2011-8-16 14:20 上传

点击文件名下载附件

wetz123

回复 那么的帅 的帖子

哈哈，有你回答，我就知道是最棒的，谢谢
还有个问题：如果我要填充的公式是sumif   或 vlookup，要怎么变化呢？
甚至是这样公式：=if(len(b1)>0,vlookup(c:c,b1,d:d),"")

那么的帅

回复 wetz123 的帖子

提供数据附件

wetz123

回复 那么的帅 的帖子

自动填充1.rar (3.86 KB, 下载次数: 46)

2011-8-16 16:29 上传

点击文件名下载附件

那么的帅

回复 wetz123 的帖子

1. 
   
2. Sub 添加公式()
   
3.     ROW1 = Sheets("SHEET1").Range("A65536").End(xlUp).Row
   
4.     For i = 3 To ROW1
   
5.         Range("G" & i).FormulaR1C1 = _
   
6.         "=IF(LEN(RC2)>0,VLOOKUP(RC2,[我的进销存模板1]进货表!R1C[-5]:R65536C[1],2,0),"""")"
   
7.         Range("H" & i).FormulaR1C1 = _
   
8.         "=IF(LEN(RC2)>0,VLOOKUP(RC2,[我的进销存模板1]进货表!R1C[-6]:R65536C,4,0),"""")"
   
9.         Range("I" & i).FormulaR1C1 = _
   
10.         "=IF(LEN(RC2)>0,VLOOKUP(RC2,[我的进销存模板1]进销存统计!R1C[-7]:R65536C[-1],7,0),"""")"
    
11.         Range("J" & i).FormulaR1C1 = "=IF(RC[-8]>0,RC[-7]*RC[-6],"""")"
    
12.     Next i
    
13. End Sub
    

复制代码

wetz123

回复 那么的帅 的帖子

公式变成这样了，我怎么一点都看不懂啊，有不有帮助文件？来学习了。

那么的帅

回复 wetz123 的帖子

参加VBA学习班或者查看VBA帮助

fulljy

学习了！谢谢！