vba - Excel VBA - 粘贴为值

Question

我正在尝试制作一个将信息从一张纸复制到另一张纸的功能，但我正在努力将粘贴作为值功能。你知道为什么它不工作吗？

Sub Copy_Data()
    Dim Src As Worksheet, Dst As Worksheet
    Dim LastRow As Long, r As Range
    Dim CopyRange As Range
    'Change these to the correct sheet names
    Set Src = Sheets("Sheet1")
    Set Dst = Sheets("Sheet2")
    LastRow = Src.Cells(Cells.Rows.Count, "A").End(xlUp).Row

    For Each r In Src.Range("A2:A" & LastRow)
        If (Month(r.Value) = "2" And Year(r.Value) = "1902") Then
            If CopyRange Is Nothing Then
                Set CopyRange = r.EntireRow
            Else
                Set CopyRange = Union(CopyRange, r.EntireRow)
            End If
        End If
    Next r

    If Not CopyRange Is Nothing Then
        CopyRange.Copy Dst.Range("A1").PasteSpecial(xlPasteValues)
    End If
End Sub

Answer 1

或者您可能会完全错过剪贴板:

If Not CopyRange Is Nothing Then
    Dst.Range("A1").Resize(CopyRange.Rows.Count, CopyRange.Columns.Count).Value = CopyRange.Value
End If