Excel粘贴公式的问题~~

来源：百度知道 编辑：UC知道 时间：2024/06/28 05:54:02
我有一列数据（A列），在B列B1中我输入了一个公式，现在想要把公式复制粘贴到B列的单元格中（前提是A列有数据）。请问应该怎样能实现这个目的呢？（单纯的向下拖复制公式是不可以的，因为我要制作一个宏，而A列数据的长度是可能变化的；复制粘贴公式到整个B列也不可以，因为A列数据太多，Excel会没有响应）
如果有解决的方法请告诉我，谢谢！！！

你可以用这段代码试试.

Sub Change()
Range("a1").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(0, 1).FormulaR1C1 = "=RC[-1]*0.5"
ActiveCell.Offset(1, 0).Select
Loop
End Sub

其中ActiveCell.Offset(0, 1).FormulaR1C1 = "=RC[-1]*0.5"
后面引号中的"=RC[-1]*0.5"就是设置的公式.
程序表示从A1开始,指导A列有值的最后一个单元格,使用同样的公式:
"=RC[-1]*0.5"(实际上就是=A1*0.5,然后往下拉的效果).

=IF(A1="","","原公式内容")
将公式向下复制。