VBA очистить содержимое строк рядом с ячейками

Question

Каждая ячейка в определенном столбце либо содержит «x», либо пуста.Я хочу создать подпрограмму, которая находит все x и затем удаляет содержимое всех ячеек справа в той же строке.Я не уверен, как правильно выбрать и очистить содержимое строк в выражении IF ниже.Любая помощь очень ценится.

    Sub clearContents()
        With Sheets("Main")
            Dim c As Range
            For Each c In Range("B1:B23")
                If c.Value = "x" Then
                    c.Offset(0, 1).End(xlToRight).clearContents
                End If
            Next c
         End With
    End Sub

Answer 1

Попробуйте это.Кстати, вы пропустили точку перед диапазоном, которая вам нужна для вашего оператора With.

Sub clearContents()
    Dim c As Range, c1 As Long
    With Sheets("Main")
        For Each c In .Range("B1:B23")
            If c.Value = "x" Then
                c1 = Cells(c.Row, Columns.Count).End(xlToLeft).Column
                If c1 > 2 Then c.Offset(0, 1).Resize(, c1 - 2).clearContents
            End If
        Next c
     End With
End Sub