将数据从一个工作表复制到另一个公式作为值

我正在处理一个macros，它可以帮助我在某些条件下将数据从一个工作表复制到另一个工作表中。 问题是，有些行包含公式，而我需要的值。

Answer 1

只需使用.copy和.PasteSpecial xlPasteValues ，然后它将粘贴值。

exsample：

 Thisworkbook.sheets("Sheet1").Range("A1").copy Thisworkbook.sheets("Sheet2").Range("A1").PasteSpecial xlPasteValues 

Answer 2

试试这个，它会复制和删除公式，保持值：

 Sub copier() Dim ws1 As Worksheet, ws2 As Worksheet, src As Range, dest As Range, i As Integer Set ws1 = Worksheets("Workload - Charge de travail") Set ws2 = Worksheets("Sheet1") For i = 2 To ws1.UsedRange.Rows.Count Set src = ws1.Range("A" & i & ":AG" & i) Set dest = ws2.Range("A" & i & ":AG" & i) ' ... you can add some checking here to check if the condition is met on the src range... src.Copy Destination:=dest dest.Value = dest.Value Next i End Sub