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

-1

我想从数据表“数据”复制数据而不是其后的公式，将数据复制到表格“报告”中。仅复制日期，而不是其背后的公式从一张纸到另一张

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

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

提前致谢！

来源

2017-12-18 DaZn

引用确切的错误信息。 –

你从哪里复制数据到报告？这段代码找到'Data'表中A列的最后一行，如果它不止一个，它将'Report'表从'A1：H1'填充到'Data'表中最后一行。它不会从“数据”表中复制任何内容 - 如果A1：H1是空白，它只会填充空白单元格。 **例如**在Report＃H1和'H1：H11'中填入一个_1_到'Data！A11'和一个_3_将填入_3，4，5 .... 13_ –

谢谢！我知道了：-） – DaZn

您不需要.AutoFill，但是.FillDown。给它一个这样的尝试：

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

来源

2017-12-18 10:08:18 Vityata

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

回答

相关问题