自动填充模拟

Question

我正在运行模拟以找出在找到成功之前运行所需的试验数。这是我如何工作的示例概念。列A包含一个简单的公式=A1+1（这意味着前一行+1）。当值达到10时，模拟应该结束。

Sub RunEX25() 
A = 1 
B = 1 
Do While True 
    Count = Count + 1 
    Range("A2").Select 
    Selection.AutoFill Destination:=Range(Cells(Count, A), Cells(Count, B)), Type:=xlFillDefault 
    Cells(Count, A).Select 
    If Cells(Count, A).Value = 10 Then 
     Exit Do 
    End If 
Loop 

我运行此代码时出现的问题是弹出错误1004。

任何人都可以帮我纠正这个问题吗？

Answer 1

你的代码需要一些改进，但这一行：

Selection.AutoFill Destination:=Range(Cells(Count, A), Cells(Count, B)), Type:=xlFillDefault 

特别

是一个给人错误1004

此时Selection范围是细胞A2但是Destination范围A1并且Range.AutoFill Method明确指出：

目标必须包含源范围。

更正此行也是它的建议：

• 代码的完整的调试
• 声明所有的变量
• 避免使用Select方法