1.工具--宏-录制新宏-确定。 2.在宏窗口上“停止录制” 3.工具-宏-宏,点击macro1-编辑,进入一个窗口,把里面的内容全部删除,粘贴下面代码: Sub 高显两列中的不同数据1() On Error GoTo MyErr Dim MyRan As Range Set MyRan = Selection If MyRan.Areas.Count2 Then MsgBox "选择的不是两列", vbExclamation Exit Sub End If Dim i As Integer, j As Integer, IsRept As Boolean, m As Inte
1.工具--宏-录制新宏-确定。 2.在宏窗口上“停止录制” 3.工具-宏-宏,点击macro1-编辑,进入一个窗口,把里面的内容全部删除,粘贴下面代码: Sub 高显两列中的不同数据1() On Error GoTo MyErr Dim MyRan As Range Set MyRan = Selection If