Wymaga rozwiązania VBA - Wyczyść zawartość 4 komórek na lewo od komórki z błędem N / A

Mam tabelę danych, w której kolumna L ma formułę vlookup. W wierszach, w których kolumna L (tzn. Vlookup zwraca „# N / A”), chciałbym wyczyścić zawartość ośmiu komórek po lewej stronie (kolumny D do K). Aby to zrobić, chciałbym utworzyć makro VBA. Każda pomoc jest bardzo ceniona.

Oto mój kod teraz:

Dim r As Range
Dim i As Long
ActiveWorkbook.Worksheets("1yr Matcher").Select
For i = 7 To 500
    For Each r In Range(Cells(10, i), Cells(Cells(ActiveSheet.Rows.Count, i).End(xlUp).Row, i))
        If IsError(r) Then
            If r >= 0 Then r.Offset(, -1).Resize(, -8).ClearContents
        End If
    Next r
Next

Myślę, że problem jest w twoim For sprawozdania. W tej chwili wartość dla r iteruje przez { G1, G2, ..., G10 } i wtedy { H1, ..., H10 } i aż do { SF1, ... SF10 }. Wygląda na to, że chcesz przejść przez wszystkie komórki w L7:L500 więc dlaczego nie zrobić tego bezpośrednio?

Dim r As Range
For Each r In Range("L7:L500")
    If IsError(r) Then
        If r >= 0 Then r.Offset(, -1).Resize(, -8).ClearContents
    End If
Next

Spróbuj:

Sub ErrorCleaner()
    Dim r As Range, rng As Range, L As Long
    Set rng = Range("L:L").Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
    For Each r In rng
        If r.Text = "#N/A" Then
            L = r.Row
            Range(Cells(L, "D"), Cells(L, "K")).Clear
    End If
    Next r
End Sub