僅複製日期，而不是其背後的公式從一張紙到另一張

-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

僅複製日期，而不是其背後的公式從一張紙到另一張

回答

相關問題