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 上的这篇文章。