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

  • Z时代
  • 2024-01-10
  • 分类：问答

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

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

以上是 仅复制日期，而不是其背后的公式从一张纸到另一张 的全部内容， 来源链接： utcz.com/qa/262284.html

回到顶部