excel - 粘贴公式中的值

Question

好的，我知道如何正常执行此操作，但是我正在使用一些我不是特别熟悉的编码，并且无法使其正常工作。此代码使用日期搜索所有工作表并将具有该日期的行粘贴到报告选项卡上。不幸的是，它粘贴的是公式而不是值。

For shtNum = 5 To Worksheets.Count

'Search Column a for date(s)

     With Sheets(shtNum).Columns(2)

      Set d = .Find(MyDate)

        If Not d Is Nothing Then

           firstAddress = d.Address

             Do

'Copy each Row where date is found to next empty Row on Summary sheet

                d.EntireRow.Copy Sheets("Reports").Range("A" & nxtRw)

                 nxtRw = nxtRw + 1

                Set d = .FindNext(d)

            Loop While Not d Is Nothing And d.Address <> firstAddress

        End If

     End With

 Next

这段代码工作得很好，但因为我不确定如何

d.EntireRow.Copy Sheets("Reports").Range("A" & nxtRw)

它做了什么，我不知道如何编辑代码并使其工作。

Answer 1

代替:

d.EntireRow.Copy Sheets("Reports").Range("A" & nxtRw)

和:

d.EntireRow.Copy
Sheets("Reports").Range("A" & nxtRw).PasteSpecial Paste:=xlPasteValues