Sub GetRngInfo()
'获取列名 和 行号
Dim rng As Range
Set rng = Sheet2.Cells(1, 12)
MsgBox GetRangeCloname(rng)
MsgBox GetRangeRowcount(rng)
End Sub
Private Function GetRangeCloname(ByVal rng As Range) As String
'获取列名
GetRangeCloname = VBA.Split(rng.Address, "$")(1)
End Function
Private Function GetRangeRowcount(ByVal rng As Range) As Long
'获取行号
GetRangeRowcount = VBA.Split(rng.Address, "$")(2)
End Function