我有一个模板，里有好多EXCEL表格，都设置好公式，现在我把表复制出来，公式依然显示连接到模板，如何改
答案:1 mip版
解决时间 2021-02-26 01:00
- 提问者网友：祗剩寂寞
- 2021-02-25 09:35
我有一个模板，里有好多EXCEL表格，都设置好公式，现在我把表复制出来，公式依然显示连接到模板，如何改
最佳答案
- 二级知识专家网友：傻ㄋ吧唧
- 2021-02-25 10:56
如果你的数据很多的话，除了每次重新编公式、下拉填充公式麻烦，而且速度也很慢
建议用以下方法
1、利用数据透视表替代sumif函数
2、利用宏写公式，计算完毕后去掉公式
方法如下：编写第一行公式时录制宏，录制完毕后进去修改,比如
i = ActiveSheet.UsedRange.Rows.Count ‘取当前使用行次，也可以用COUNTA函数计算
For j = 2 To i
Range("A" & j).FormulaR1C1 = "=ROW()-6" '定义公式
Range("C" & j).FormulaR1C1 = "=RC[-4]-RC[-2]" '定义公式
Range("J" & j).Formula = "=RC[-4]-RC[-2]" '定义公式
Range("K" & j).Formula = "=ROUND(RC[-4]-RC[-2],2)" '定义公式
Range("M" & j).Formula = "=RC[-2]+RC[-1]" '定义公式
Range("N" & j).Formula = "=RC[-9]-RC[-5]" '定义公式
Range("A" & j & ":N" & j).Value = Range("A" & j & ":N" & j).Value '去掉公式
Next j
建议用以下方法
1、利用数据透视表替代sumif函数
2、利用宏写公式，计算完毕后去掉公式
方法如下：编写第一行公式时录制宏，录制完毕后进去修改,比如
i = ActiveSheet.UsedRange.Rows.Count ‘取当前使用行次，也可以用COUNTA函数计算
For j = 2 To i
Range("A" & j).FormulaR1C1 = "=ROW()-6" '定义公式
Range("C" & j).FormulaR1C1 = "=RC[-4]-RC[-2]" '定义公式
Range("J" & j).Formula = "=RC[-4]-RC[-2]" '定义公式
Range("K" & j).Formula = "=ROUND(RC[-4]-RC[-2],2)" '定义公式
Range("M" & j).Formula = "=RC[-2]+RC[-1]" '定义公式
Range("N" & j).Formula = "=RC[-9]-RC[-5]" '定义公式
Range("A" & j & ":N" & j).Value = Range("A" & j & ":N" & j).Value '去掉公式
Next j
我要举报
如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！
点此我要举报以上问答信息
推荐资讯