通过VBA将行中的值复制到另一个工作簿

Question

如果条件为真，我有这段代码可将行从一张纸复制到另一张纸，但是我有一个小问题。 Sheet1的单元格具有公式，我只想将值粘贴到Sheet2。 如何在此代码中执行此操作？

Sub CopyRows()     
  Dim cell As Range
  Dim lastRow As Long, i As Long
  Dim FName As String
  Dim FPath As String
  Dim NewBook As Workbook

  lastRow = Range("A" & Rows.Count).End(xlUp).Row

  i = 1

  For Each cell In Sheets("Sheet1").Range("T1:T" & lastRow)
    If cell.Value = "X" Or cell.Value = "Y" Then          
      cell.EntireRow.Copy Sheets("Sheet2").Cells(i + 1, 1)
      i = i + 1
    End If        
  Next
End Sub

Answer 1

替换此行：

cell.EntireRow.Copy Sheets("Sheet2").Cells(i + 1, 1)

改用这两行：

cell.EntireRow.Copy
Sheets("Sheet2").Cells(i + 1, 1).PasteSpecial xlPasteValues