復制粘貼數據時出現運行時錯誤1004

Question

我寫了一個宏來列出特定范圍內的所有數字，然后將值粘貼到每個數字上。 宏引發運行時錯誤1004。這是宏：

Sub Populate()
Range("A1") = Range("H18").Value
Range("A1").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=1, Stop:=Range("I18").Value, Trend:=False

Range("J18").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1").Select
    Selection.End(xlDown).Select
    Range("B20").Select
    Range(Selection, Selection.End(xlUp).Offset(-1, 0)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B1").Select

Range("A1").End(xlDown).Offset(1, 0) = Range("H19").Value
Range("A1").End(xlDown).Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=1, Stop:=Range("I19").Value, Trend:=False


Range("J18").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1").Select
    Selection.End(xlDown).Select
    Range("B20").Select
    Range(Selection, Selection.End(xlUp).Offset(-1, 0)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B1").Select

 End Sub

Answer 1

嘗試將語法的開頭更改為：

Dim dRange As Range
Set dRange = Range("A1:I18")
Range("A1") = Range("H18").Value
Range("A1").Select
dRange.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay

由於重復以下代碼，您可能仍然會遇到問題：

Range("B20").Select
Range(Selection, Selection.End(xlUp).Offset(-1, 0)).Select

不確定最終目標是什么，但是通過我的測試，您可以更進一步並解決Run-time error: '1004'