在Excel VBA宏中複製公式

-2

所以這是我的問題。當我點擊我添加一個新行的按鈕時，我爲第15列創建的公式未被複制。在Excel VBA宏中複製公式

Original When the button was clicked to add a new row

原始圖像：然而，當我點擊了「點擊添加行」按鈕，我提出的公式15列並沒有被複制到同一列的新行。這是我的代碼：

Private Sub CommandButton1_Click() 

    Dim mySheets 
    Dim i As Long 

    mySheets = Array("Sheet1") 

    For i = LBound(mySheets) To UBound(mySheets) 

     With Sheets(mySheets(i)) 

      .Range("B16").EntireRow.Insert Shift:=xlDown 
      .Range("C16").Value = "to" 
      .Range("F16").Value = "±" 
      .Range("J16").Value = "to" 
      .Range("O16").Value = "±" 
      .Range("B16").Font.Color = black 

     End With 

    Next i 

End Sub

來源

2017-11-25 Lemuel John Bagtas

什麼是你期待？我很努力，所以明白你的意思？列R中的公式？哪一排？這將有助於瞭解這一點。 – QHarr

好的，所以公式不會被複制。 ...你爲什麼說兩次？ ... 你有問題嗎？？ – jsotola

你需要發佈你的按鈕代碼。不可否認，否則 – SEarle1986

嘗試以下操作：

對於完全相同的公式：

With Sheets(mySheets(i)) 

    .Range("A15").Offset(1).Insert 
    .Range("R16").Formula = .Range("R15").Formula 

End With

對於相同的配方相對引用：

With Sheets(mySheets(i)) 

    .Range("A15").Offset(1).Insert 
    .Range("R15").AutoFill Destination:=Range("R15:R16"), Type:=xlFillDefault 

End With

來源

2017-11-26 14:26:18 QHarr

謝謝QHarr！但是，你可以嘗試一下，而不需要將A15的值複製到O15。我的意思是，當你點擊按鈕時，R15中的公式將與R14公式中的公式相同。非常感謝你。對於Visual Basic我真的沒有足夠的知識。我希望你能幫助我。 –

R15中的公式？我猜你的意思是第15行？你實際上是想插入一個新的行還是隻改變現有行15中的單元格的值？ – QHarr

我的意思是列R行15.我需要插入一個新的行，它在列R中複製相同的公式，但不會將列A中的元素複製到O. –

在Excel VBA宏中複製公式

回答

相關問題