仅复制日期,而不是其背后的公式从一张纸到另一张
问题描述:
我想从数据表“数据”复制数据而不是其后的公式,将数据复制到表格“报告”中。仅复制日期,而不是其背后的公式从一张纸到另一张
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
引用确切的错误信息。 –
你从哪里复制数据到报告?这段代码找到'Data'表中A列的最后一行,如果它不止一个,它将'Report'表从'A1:H1'填充到'Data'表中最后一行。它不会从“数据”表中复制任何内容 - 如果A1:H1是空白,它只会填充空白单元格。 **例如**在Report#H1和'H1:H11'中填入一个_1_到'Data!A11'和一个_3_将填入_3,4,5 .... 13_ –
谢谢!我知道了 :-) – DaZn