VBA Excel 2010 - 自动填充不填充

Posted 2023-02-24

【中文标题】VBA Excel 2010 - 自动填充不填充

【英文标题】：VBA Excel 2010 - AutoFill not Filling

【发布时间】：2016-06-17 10:54:43

【问题描述】：

我正在尝试自动填充到下一列，我设置了范围，我检查了它们并使用.Select 选择了它们，但是当我运行代码时它会出错，说“范围类的自动填充方法失败”

LastRow = [C65000].End(xlUp).Row
LastColumn = [IV5].End(xlToLeft).Column

Set AutoFillSource = Range(Cells(5, LastColumn), Cells(LastRow, LastColumn))
Set AutoFillRangeTo = Range(Cells(5, LastColumn + 1), Cells(LastRow, LastColumn + 1))

AutoFillSource.AutoFill Destination:=AutoFillRangeTo

我查看了this SO answer，但它没有解决它，我还查看了msdn，看看我是否遗漏了什么，但也出现了空白

【参考方案1】：

目标范围必须包括源范围。使用：

Set AutoFillRangeTo = Range(Cells(5, LastColumn), Cells(LastRow, LastColumn + 1))

【讨论】：

现在我知道我哪里出错了，我知道这很简单。谢谢