Почему мой код не работает?Это из-за LastRow0 = .Cells (.Rows.Count, "AI"). End (xlUp) .row

Question

Приведенный ниже код работает, только если моя таблица заканчивается на столбце AJ.Моя таблица может закончиться перед колонкой AJ.Как я могу изменить код, чтобы он работал, когда моя таблица заканчивается в любом столбце?

Заранее спасибо.

Dim row As Long, Column As Long
With ThisWorkbook.Worksheets("Data")
    LastRow0 = .Cells(.Rows.Count, "AI").End(xlUp).row
    For row = 8 To LastRow0 Step 3
        For Column = 5 To 35
            If Cells(row, Column).Value = "" Then
                Cells(row, Column).Value = 0
            End If
        Next Column
    Next row
End With

Answer 1

Вы нашли lastRow, теперь вам нужен lastColumn.

Dim row As Long, Column As Long
With ThisWorkbook.Worksheets("Data")
    LastRow0 = .Cells(.Rows.Count, "AI").End(xlUp).row
    .UsedRange
    LastCol0 = .UsedRange.Columns(.UsedRange.Columns.Count).Column
    For row = 8 To LastRow0 Step 3
        For Column = 5 To LastCol0
            If Cells(row, Column).Value = "" Then
                Cells(row, Column).Value = 0
            End If
        Next Column
    Next row
End With