VBA如何只复制数值不复制公式

zhuqing1992716

求教各位大神，VBA如何只复制数值不复制公式。附如下：

Sub 月报表()
    Application.ScreenUpdating = False
   

    dt1 = CDate([a1])
    dt2 = CDate([e1])
    Set Rng = Nothing
    With Sheets(11)
        r = .Cells(Rows.Count, 2).End(3).Row
        arr = .[a1].Resize(r, 2)
        For j = 4 To UBound(arr)
            If CDate(arr(j, 2)) >= dt1 And CDate(arr(j, 2)) <= dt2 Then
                If Rng Is Nothing Then
                    Set Rng = .Cells(j, 1).Resize(1, 30)
                Else
                    Set Rng = Union(Rng, .Cells(j, 1).Resize(1, 30))
                End If
            End If
        Next j
    End With
    If Not Rng Is Nothing Then Rng.EntireRow.Copy [a4]
    Application.ScreenUpdating = True
End Sub

lsc900707

If Not Rng Is Nothing Then Rng.EntireRow.Copy
[a4].PasteSpecialPaste:=xlPasteValues

zhuqing1992716

lsc900707 发表于 2018-9-28 19:11
If Not Rng Is Nothing Then Rng.EntireRow.Copy
[a4].PasteSpecialPaste:=xlPasteValues

您好，按照修改提示语法错误，重新上传附件，万分感谢

zhuqing1992716

zhuqing1992716 发表于 2018-9-28 19:20
您好，按照修改提示语法错误，重新上传附件，万分感谢

已解决，全半角符号写错了，感谢大佬

zhuqing1992716

lsc900707 发表于 2018-9-28 19:11
If Not Rng Is Nothing Then Rng.EntireRow.Copy
[a4].PasteSpecialPaste:=xlPasteValues

已解决，全半角符号写错了，感谢大佬

lsc900707

zhuqing1992716 发表于 2018-9-28 19:20
您好，按照修改提示语法错误，重新上传附件，万分感谢

疏忽了一个空格！
If Not Rng Is Nothing Then Rng.EntireRow.Copy
[a4].PasteSpecial Paste:=xlPasteValues

zhuqing1992716

lsc900707 发表于 2018-9-28 19:46
疏忽了一个空格！
If Not Rng Is Nothing Then Rng.EntireRow.Copy
[a4].PasteSpecial Paste:=xlPasteV ...

感谢大神回复，已解决