Question

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

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

请记住：当我选择相同的公式时，答案不会改变。

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

注意：
如果您可以选择在公式中使用absolute addresses，那么这将是首选的方式，而不是像上面那样的宏。

Answer 2

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

按钮代码是

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

您也可以使用

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