只复制日期，而不是从背后的公式复制到另一张

Question

我想只将数据而不是背后的公式从“数据”表复制到“报告”表中。

Sub CopyValueDown() 

Dim lRow As Integer
    lRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
    If lRow > 1 Then 
        Sheets("Report").Range("A1:H1").AutoFill _
                  Destination:=Range("A1:H" & lRow)
    end if
End Sub

它说自动填充方法不起作用。

提前致谢！

Answer 1

你不需要.AutoFill，但.FillDown。尝试这样：

Public Sub TestMe()
    If lrow > 1 Then
        Range("A1:H" & lrow).FillDown
    End If
End Sub