Скрипт VBA для удаления значений столбцов на основе других значений столбцов - получение несоответствия типов

Question

У меня проблема со следующей командой, поскольку я получаю

Ошибка времени выполнения 13 Несоответствие времени

в этой части:

If Cells(i, "BL").Value = "Started" Then, ниже кода, что я могу изменить, чтобы запустить его?

Очень хочу поискать Работу, начатую во всех строках столбца BL, и, если это так, удалить информацию в та же строка в столбце AH

    Dim myLastRow As Long
    Dim i As Long
    Application.ScreenUpdating = False
    'Find last row
    myLastRow = Cells(Rows.Count, "BL").End(xlUp).Row
    ' Loop through range
    For i = 2 To myLastRow
        ' If Cells(i, "BL").Value = "Started" Then Range(Cells(i, "AH")).ClearContents
        If Cells(i, "BL").Value = "Started" Then Cells(i, "AH").ClearContents
    Next i
    Application.ScreenUpdating = True


End Sub

Answer 1

Содержит ли столбец BL одно или несколько значений ошибок? Если это так, вам нужно сначала проверить наличие ошибки, а затем проверить, равно ли значение «Пуск» ...

For i = 2 To myLastRow
    ' If Cells(i, "BL").Value = "Started" Then Range(Cells(i, "AH")).ClearContents
    If Not IsError(Cells(i, "BL").Value) Then
        If Cells(i, "BL").Value = "Started" Then Cells(i, "AH").ClearContents
    End If
Next i

Надеюсь, это поможет!