Excel 从公式中粘贴值

好的，我知道如何正常地做这件事，但是我使用了一些我不太熟悉的代码，我无法让它工作。此代码使用日期搜索所有工作表，并将带有该日期的行粘贴到报告选项卡上。不幸的是，它粘贴的是公式而不是值

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)

与：

替换：

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

与：

---

d.EntireRow.Value=Sheets.Range（“A”&nxtRw）.EntireRow.Value

@Comintern-或者可能

Sheets.Range（“A”&nxtRw）.EntireRow.Value=d.EntireRow.Value

（这样你就不会破坏源数据了）

d.EntireRow.Value=Sheets.Range（“A”&nxtRw）.EntireRow.Value

@Comintern-或者可能

Sheets.Range（“A”&nxtRw）.EntireRow.Value=d.EntireRow.Value

（这样您就不会对源数据进行处理）？

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