给你一些提示，通过取鼠标当前所在单元格的行号或列号来实现
右击工作表标签,点查看代码,在代码区域写代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("E1") = Target.Row
Range("F1") = Target.Column
End Sub
E1为行号,F1为列号, 如果你都取行号，也可以写两行 Range("E1") = Target.Row，Range("F1") = Target.Row, 只对当前工作表有效。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024