如何自动填充命名单元格？

Question

我正在尝试在命名单元格上使用自动填充。

在我的代码的真正简化版本中，我将Lastrow 设置为工作表的最后一行。

Lastrow = wsDest.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Offset(RowOffset:=1).Row 
lr = Cells(Rows.Count, 1).End(xlUp).Row

Set DragDownCell1 = wsDest.Cells(Lastrow, "B")
DragDownCell1 = 2.24334E+18

然后一个 For 循环将信息填充到 Lastrow。在循环结束时，我将 1 添加到 Lastrow，因此将信息添加到最后一行并且不会覆盖自身。

For x = i + 1
    Lastrow = Lastrow + 1
Next x

然后我尝试将 2.24334E+18 自动填充到最后一行，但出现方法范围错误。

ws.Dest.Range("DragDownCell1").AutoFill Destination:=wsDest.Range(DragDownCell1, Cells(Lastrow, "B")), Type:=xFillDefault

我在另一个工作表中对此进行了测试，我只是使用命名单元格进行测试

Cell1 = Range("H14")
Range("Cell1").AutoFill Destination:=Range(Cells(14, 8), Cells(24, 8)), Type:=xlFillDefault

我得到一个对象全局错误的方法范围。

Answer 1

试试这个：

DragDownCell1.AutoFill Destination:=wsDest.Range(DragDownCell1, wsDest.Cells(Lastrow, "B")), Type:=xFillDefault

由于DragDownCell1 已经是归属于wsDest 工作表的范围，因此您无需指定wsDest.Range(DragDownCell1) - 最重要的是您最初拥有的

ws.Dest.Range("DragDownCell1")

其中ws.Dest 与wsDest 不同，Range("DragDownCell1") 将是Named Range，即工作表上命名的范围 - 您实际上只是使用Range 变量。