行数不就是，都是1嘛？
是列号？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tr, tc
tr = Target.Row
tc = Target.Column
If tr > 1 And tc > 4 Then Exit Sub
Range("A1：D1").Font.ColorIndex = 0
Target.Font.ColorIndex = 5
[A2] = tc '显示选择单元格的列号
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024