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 上的 this 帖子。