VBA: оптимальный способ выделить верхнюю левую ячейку выделения

Question

Попытка найти лучший способ выбрать верхнюю левую ячейку из выбора. Текущий код выглядит слишком громоздким, чтобы быть оптимальным:

Sub CAIShowHandle()

    Dim TopLeftColumn As String
    Dim TopLeftRow As String

    'changing to only top left cell
    With Selection
        TopLeftRow = .Row
        TopLeftColumn = Col_Letter(.Column)
    End With
    Range(TopLeftColumn & TopLeftRow).Select

End Sub

Function Col_Letter(lngCol As Long) As String
    Dim vArr
    vArr = Split(Cells(1, lngCol).Address(True, False), "$")
    Col_Letter = vArr(0)
End Function

Есть ли лучший способ написать это?

Answer 1

Все, что вам нужно сделать, когда у вас есть выбор:

Selection(1).Select

Однако, будьте осторожны, используя .Select, так как этого можно избежать. См. эту публикацию в StackOverflow для получения дополнительной информации по этому вопросу.