这个需要用到VBA,比如:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)MsgBox "当前单元格为:第" & Target.Row & "行,第" & Target.Column & "列。" & vbCrLf & "值为:" & Cells(Target.Row, Target.Column), vbOKOnly, "当前激活的单元格"End Sub