Может ли этот код VBA быть адаптирован для запуска в ячейке A2

Question

У меня есть некоторый код VBA, который выделяет ячейки в A, если они содержат значение.

Есть ли способ адаптировать это, чтобы начать в ячейке A2, поскольку A1 - заголовок.

    Option Explicit

Sub LRow()

    Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")  '<=== Edit Sheet Name
    Dim LRow As Long

    LRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

    ws.Range("A1:A" & LRow).Select

End Sub

Answer 1

Вам нужно только изменить начальную ячейку на A2: ws.Range("A2:A" & LRow).Select

В вашем коде это выглядит так:

Sub LRow()

    Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")  '<=== Edit Sheet Name
    Dim LRow As Long

    LRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

    ws.Range("A2:A" & LRow).Select

End Sub