粘貼值而不是公式

Question

我想要做的是將Sheet1中的單元格I6中的值複製並粘貼到Sheet2中的特定行（基於匹配）中。然而，我現在的代碼粘貼的公式，而不是價值：

Private Sub CommandButton1_Click() 
    rowNum = Application.WorksheetFunction.Match(Cells(6, 6), Sheets("Sheet2").Range("A6:A100"), 0) 
    Sheets("Sheet1").Cells(7, 9).Copy Destination:=Sheets("Sheet2").Cells(rowNum + 5, 9) 
End Sub 

任何想法我做錯了什麼？

Answer 1

這種替換最後一行：

Sheets("Sheet2").Cells(rowNum + 5, 9) = Sheets("Sheet1").Cells(7, 9).Value