Выделение ячеек с содержимым в столбце А?

Question

Как выбрать ячейки с содержимым в столбце A?

Например,

У меня может быть список имен

John 
Jack 
James

и другиераза более длинный список раз,

John 
Jack
James
Jimmy

Они всегда будут в ячейке A1-AX, где X - последняя строка.

В первом примере я бы использовал код

Range("A1:A3").Select

Для второго

Range("A1:A4").Select

Я хотел бы использовать код, который автоматизирует это независимо от того,сколько в списке.

Answer 1

Sub SelectStartToEnd(sheetName as string, Column as string, Optional StartIndex as integer)
    Dim StartHere as string

    If IsMissing(StartIndex) = False then
        StartHere = Column + CStr((1 + StartIndex))
    End If

    Sheets(sheetName).Range(startHere + ":" + Range(StartHere).SpecialCells(xlCellTypeLastCell).Address).Select
End Sub 

Это касается плюсов и минусов большинства методов.

https://www.excelcampus.com/vba/find-last-row-column-cell/

Answer 2

Вам необходимо обратиться к свойству Worksheet.UsedRange.Rows, чтобы узнать количество строк.

Dim x As String
x = Me.UsedRange.Rows.Count
Me.Range("A1:A" + x).Select

Убедитесь, что рассматриваемый лист активен, или вы получите сообщение об ошибке приложения.

Answer 3

Измените имя листа в 4-й строке кода (оставьте там кавычки), а затем запустите код.

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 4

Private strPrevCellAddress As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim r As Excel.Range

    If strPrevCellAddress <> "" Then
        Range(strPrevCellAddress).Interior.ColorIndex = -4142
    End If

    Set r = Cells(1, Target.Column)
    Set r = r.Resize(r.End(xlDown).Row, 1)
    r.Interior.Color = vbRed
    strPrevCellAddress = r.Address

End Sub