• 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏吧

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

excel 来源:DaZn 3次浏览

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

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,但是.FillDown。给它一个这样的尝试:

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

版权声明:本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系管理员进行删除。
喜欢 (0)