公式单独复制粘贴没有改变

我之前也问过同样的问题。 但我无法得到确切的结果。 请帮助我通过VBAmacros。 谢谢。

题：
如何复制特定范围的公式（比如A10：A20）并将其粘贴到下一列。 我可以通过按F2对Excel中的单元格执行相同的操作，并单独复制该公式并将其粘贴到下一列中。 但是，如果我想select一个范围，并粘贴到下一列，我必须做什么？

请记住：答案不会因为我select相同的公式而改变。

Answer 1

要将公式从一个范围/列复制到另一个范围，可以这样做：

 Option Explicit Sub CopyFormulasFromBtoC() With Worksheets("Sheet1") .Range("C:C").Formula = .Range("B:B").Formula End With End Sub 

这也是可能的范围，而不是列，但范围需要是完全相同的大小。

 .Range("C1:C7").Formula = .Range("B1:B7").Formula 

注意：
如果在你的公式中使用绝对地址是一个选项，那么这将是首选的方法，而不是像上面这样的macros。

Answer 2

excel页面的检查 – c2是c1的公式

首先在公式中确保使用“$”使范围地址绝对

button代码是

 Sub Button1_Click() Sheets("Sheet1").Columns(3).Copy Destination:=Sheets("Sheet1").Columns(4) End Sub 

你也可以使用

 Range("D:D").Value = Range("C:C").Value