可以将此VBA代码改编为在单元格A2中启动

Question

我有一些VBA代码，如果它们包含一个值，则会突出显示A中的单元格。

由于A1是标头，因此是否有办法使它开始于单元格A2中。

    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