Моделирование автозаполнения

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 конкретно говорит:

Пункт назначения должен включать исходный диапазон ,

Правильная эта линия, но она предложила:

• Полная отладка кода
• Объявите все переменные
• Избегайте использования Выбор метода