Excel VBA“范围类的自动填充方法失败”

Question

以下 VBA 代码 (Excel 2007) 失败，并出现错误 1004，“范围类的自动填充方法失败。”。谁能告诉我如何解决它？

Dim src As Range, out As Range, wks As Worksheet

Set wks = Me
Set out = wks.Range("B:U")
Set src = wks.Range("A6")
src.AutoFill Destination:=out

（注意：我已经为此进行了谷歌搜索等。它经常出现，但我看到的所有响应都与格式错误的范围地址有关，据我所知这不是我的问题。

---

根据某人的建议，我尝试替换自动填充行其结果如下：

src.Copy out

这会使我的 Excel 会话陷入明显的无限循环，消耗 100% CPU，然后永远挂起，

---

显然源必须是自动填充的目标范围的一部分，所以我的代码现在看起来像这样。 this：

Dim src As Range, out As Range, wks As Worksheet

Set wks = Me
Set out = wks.Range("B1")
Set src = wks.Range("A6")
src.Copy out

Set out = wks.Range("B:U")
Set src = wks.Range("B1")
src.AutoFill Destination:=out, Type:=xlFillCopy

最后一行出现同样的错误。

Answer 1

来自 MSDN：

目的地必须包含
来源范围。

B:U 不包含 A6，因此存在错误。我相信您可能希望将 out 设置为 A6:U6。

仅指定列名称意味着您想要填充该列中的每一行，这不太可能是所需的行为

---

更新

进一步按照下面的OP评论并更新到原始答案，这可能会成功：

Dim src As Range, out As Range, wks As Worksheet

Set wks = Me
Set out = wks.Range("B1")
Set src = wks.Range("A6")
src.Copy out

Set out = wks.Range("B1:U1")
Set src = wks.Range("B1")
src.AutoFill Destination:=out, Type:=xlFillCopy

Set out = wks.Range("B:U")
Set src = wks.Range("B1:U1")
src.AutoFill Destination:=out, Type:=xlFillCopy

自动填充一次被限制在一个方向（即水平或垂直）。要从单个单元格填充二维区域，您首先必须沿着该区域的一个边缘自动填充一条线，然后将该线延伸到该区域

对于复制格式和清除内容的特定情况（通过源单元格为空），这样更好：

Dim src As Range, out As Range, wks As Worksheet

Set wks = Sheet1
Set out = wks.Range("B:U")
Set src = wks.Range("A6")
src.Copy out

Answer 2

要使AutoFill 正常工作，您需要使AutoFill 的范围大于源范围。如果自动填充范围与源范围相同，则该范围内没有任何内容可自动填充，因此您会收到错误

1004: Range 类的 AutoFill 方法失败。

因此，使自动填充范围大于源范围，错误就会消失。

Answer 3

如果您想自动填充，只需执行以下操作...

Private Sub Autofill()

'Select the cell which has the value you want to autofill
Range("Q2").Select

'Do an autofill down to the amount of values returned by the update
Selection.AutoFill Destination:=Range("Q2:Q10")

End Sub

这将自动填充到指定的范围。

这有帮助吗？

Answer 4

不确定这是否对任何人有帮助，但我需要类似的东西。选择单元格作为目标有效；

dim rowcount as integer
Sheets("IssueTemplate").Select ' Whatever your sheet is
rowcount = 0
rowcount = Application.CountA(Range("A:A"))'get end range
Cells(4, 3).Select 'select the start cell
'autofill to rowcount
Selection.AutoFill Destination:=Range("C4:C" & rowcount), Type:=xlFillDefault 

在我的示例中，我必须自动生成从 OA100 到 OA###? 的文件​​夹名称列表，这工作得很好。