Excel宏: Set the formula of a cell

Question

我正在编写一个宏，以在所有选定的工作表中插入一行，然后将某些值设置为等于另一个工作表中的值。我已设法使用以下代码插入行，但在尝试设置值时遇到了困难。如果没有宏，我只需输入 =InputC7 输入作为工作簿中第一个工作表的名称。

Sub InsertRows()
'
' InsertRows Macro
' Inserts rows into all selected sheets at the same position
'

    Dim CurrentSheet As Object

    ' Loop through all selected sheets.
    For Each CurrentSheet In ActiveWindow.SelectedSheets
        ' Insert 1 row at row 7 of each sheet.
        CurrentSheet.Range("a7:a7").EntireRow.Insert
        CurrentSheet.Range("c7").Value =Input!C7 'this is not working
    Next CurrentSheet
End Sub

Answer 1

如果您只需要名为“Input”的工作表中的值，您可以执行以下操作:

CurrentSheet.Range("C7").Value = Sheets("Input").Range("C7").Value

如果您想要公式“=Input!C7”，您可以这样做:

CurrentSheet.Range("C7").Formula = "=Input!C7"