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方法

自动填充模拟

1 个答案: