VBA将值从一行复制到另一个工作簿

如果条件是真的，我有这个代码从一个表复制行到另一个，但我有一个小问题。 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

replace这一行：

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

用这两行代替：

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