VBA ИЛИ ЕСЛИ Заявление

Question

Я хочу использовать оператор OR, чтобы моя функция говорила: «Если ячейка не начинается с« rw-promo »или« rw-content », то удалите всю строку.

Однако,функция не учитывает «rw-content», поэтому я остаюсь с клетками, начинающими с «rw-promo».

Любая помощь приветствуется!

---

Sub monthly_delete_emails()

    'Disab;e certain Excel features, whilst the macro is running'
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Application.ScreenUpdating = False

        'Declare variables'
        Dim deleteRow As Long
        Dim ws As Worksheet

        'Set objects'
        Set ws = ActiveSheet

         'Loop through the rows of data, in order to delete rows with'
         'a value in column B. Our macro starts at row 9'
         For deleteRow = ws.Range("B" & Rows.Count).End(xlUp).Row To 9 Step -1

             'identify values in col B, which start with ___'
             If Not ws.Range("B" & deleteRow).Value Like "rw-promo*" Or ws.Range("B" & deleteRow).Value Like "rw-content*" Then
                 Rows(deleteRow).EntireRow.delete
             End If

         'Move to next cell in the range, which is being looped'
         Next deleteRow

    'Re-enable the above Excel features, which were disables whilst the macro ran'
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

Answer 1

Проблема в том, что оператор Not не применяется к обоим вашим утверждениям.Это выглядит как английское выражение, но не выполняется как условное выражение VBA.Ваш опубликованный код говорит: «Если ячейка не начинается с rw-Promo или если ячейка начинается с rw-content, удалите ячейку». Вам нужно, чтобы эта строка гласила:

If Not ws.Range("B" & deleteRow).Value Like "rw-promo*" Or Not ws.Range("B" & deleteRow).Value Like "rw-content*" Then

Одна и та же вещь запутывает людей по всему языку программирования.