Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
A = Replace(Target.Address, "$", "")
For I = 1 To Len(A)
If IsNumeric(Mid(A, I, 1)) = False Then
aa = Left(A, I)
Else
Exit For
End If
Next
For I = 1 To Len(A)
If IsNumeric(Right(A, I)) = True Then
bb = Right(A, I)
Else
Exit For
End If
Next
Range(aa & bb).Select
End Sub
以上用VBA代码实现的
这是直接可以选中的,虽然不明白你的用意所在,还是给你列出方法了
有什么问题欢迎继续追问,满意请及时采纳
本回答被提问者和网友采纳