Переменная не определена проблема с опцией явного макроса

Question

У меня есть код ниже, который работает с простым листом. Если я попытаюсь включить его в свой макрос, который является явным параметром, то выдается ошибка, что переменная x не определена.

Пробовал различные димки, но безуспешно Новичок в этом, поэтому я предполагаю, что я что-то упустил, вероятно, довольно очевидно для вас, ребята

Sub FillDuplicates()
Dim lastrow As Long

lastrow = Cells(Rows.Count, "A").End(xlUp).Row 'find last row in column A

For x = 1 To lastrow
    If Cells(x, 1).Value = 0 Then 'Find initial 0 value

            If Cells(x + 1, 1).Value = 0 Then 'Compares cell against previous cell
                Cells(x + 1, 1).Value = "" 'If matches, sets value as nothing
            End If

    End If
Next x

End Sub

Указывает, где в столбце находится количество последовательных 0 значений. Затем он сохраняет первое и удаляет остальные, затем переходит к следующей группе и т. Д.

Answer 1

Как Андреас до меня: Вы должны определить переменную x:

Sub FillDuplicates()
Dim lastrow As Long

Dim x as Integer 'if you have more 32767 rows to check then use double which is good for 1.79769313486231570E+308

lastrow = Cells(Rows.Count, "A").End(xlUp).Row 'find last row in column A

For x = 1 To lastrow
    If Cells(x, 1).Value = 0 Then 'Find initial 0 value

            If Cells(x + 1, 1).Value = 0 Then 'Compares cell against previous cell
                Cells(x + 1, 1).Value = "" 'If matches, sets value as nothing
            End If

    End If
Next x

End Sub

Это должно решить проблему:)