可以用VBA实现:假设需要检查的范围是表单"Sheet1"的第1-12行及1-4[即A-D列];菜单:工具-》宏-》Visual Basic 编辑器左框:鼠标左键双击"Sheet1"对象,在右面弹出相应的对象页面;右框编辑好以下代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range) r = 12 c = 4 ran = Chr(64 + Target.Column) & Target.Row If (Target.Value <> "" And Target.Row <= r And Target.Column <= c) Then For ir = 1 To r For ic = 1 To c If (ActiveSheet.Cells(ir, ic).Value <> "" And ActiveSheet.Cells(ir, ic).Value = Target.Value) Then ran = ran & "," & Chr(64 + ic) & ir End If Next ic Next ir End If Range(ran).SelectEnd Sub回到Excel主页面,点击表单"Sheet1"的第1-12行及1-4[即A-D列]区域的任意单元格,即会选取所有区域内与其内容相同的所有单元格,""【空白】除外!!!注:可据实变更代码中的r=12,c=4以改变限定区域。