Использование рабочих таблиц («xxx»). Range (Cells (y, x), Cells (y, x)). ClearContents не работает - PullRequest
Новая
       11

Использование рабочих таблиц («xxx»). Range (Cells (y, x), Cells (y, x)). ClearContents не работает

0 голосов
/ 23 ноября 2018

У меня есть функция сброса, которая проверяет каждую ячейку, занята ли она, а затем стирает ее.Тем не менее я получаю сообщение об ошибке 1004 в разделе «Рабочие листы» («Alarm_Filter»). Range (ячейки (11, x), ячейки (y, x)). ClearContents

Может кто-нибудь сообщить, в чем проблема?

Спасибо. 

Sub Reset()

x = 2
y = 11

Do Until (x > 1377)

    Do Until IsEmpty(Worksheets("Alarm_Filter").Cells(y, x))
        If Not IsEmpty(Worksheets("Alarm_Filter").Cells(y, x)) Then
            y = y + 1
        End If

    Loop

    Worksheets("Alarm_Filter").Range(Cells(11, x), Cells(y, x)).ClearContents   'Error 1004

    x = x + 3
Loop
End Sub
...