Question

我想从表格中复制数据而不是复制背后的公式＆＃34;数据＆＃34;进入工作表＆＃34;报告＆＃34;。

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

它表示AutoFill-Methode不起作用。

提前致谢！

Answer 1

您不需要.AutoFill，而是.FillDown。尝试这样：

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

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

1 个答案: