Как удалить всю строку, кроме столбца A в цикле VBA?

Question

Я пытаюсь выделить всю строку серым цветом, если значение в столбце A начинается с «ABC», а также удалить все, что находится справа от этой ячейки. Есть идеи как это сделать?

Dim DataRange As Range
Set DataRange = Range("A1:U" & LastRow)

Set MyRange = Range("A2:A" & LastRow)

For Each Cell In MyRange
If UCase(Left(Cell.Value, 3)) = "ABC" Then
    Cell.EntireRow.Interior.ColorIndex = 15


Else


End If
Next

Answer 1

Вот еще один пример; Вы указали «очистить все вправо», поэтому я добавил смещение, чтобы очистить содержимое ячеек не в столбце А.

Dim x As Long

For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If UCase(Left(Cells(x, 1).Value, 3)) = "ABC" Then
        Range(Cells(x, 1), Cells(x, Columns.Count).End(xlToLeft)).Interior.ColorIndex = 15
        Range(Cells(x, 1).Offset(, 1), Cells(x, Columns.Count).End(xlToLeft)).ClearContents
    End If
Next x  

Answer 2

Вот довольно простой подход:

Dim lastRow As Long
Dim row As Long
Dim temp As String

' insert your sheet name here
With ThisWorkbook.Worksheets("your sheet name")

    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    ' you can change the starting row, right now its 1
    For row = 1 To lastRow

        ' store whats in col A in a temporary variable
        temp = Trim(CStr(.Range("A" & row).Value))

        ' if col A isn't 'ABC' clear & grey entire row
        If UCase(Left(.Range("A" & row).Value), 3) <> "ABC" Then

            .Rows(row).ClearContents
            .Rows(row).Interior.ColorIndex = 15

            ' place temp variable value back in col A and make interior No Fill
            .Range("A" & row).Value = temp
            .Range("A" & row).Interior.ColorIndex = 0

        End If
    Next
End With