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

粘贴值而不是公式

1 个答案: