粘贴值而不是公式

我想要做的是将Sheet 1中的单元格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

用这个replace最后一行：

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