请教高手，如何在EXCELE中多列的数字选出相同的并标记

whytobj · 发表于 2011-1-21 21:32

如何在EXCELE中多列的数字选出相同的并标记
比如

能把里面所有相同的数据都标记，比如把表格变红。或者在第I列中列出相同的数字，在第J列中列出相同的数字出现的数据。请高手帮下忙

[ 本帖最后由 whytobj 于 2011-1-21 22:11 编辑 ]

醉舞街头 · 发表于 2011-1-21 21:35

条件格式?上个EXCEL压缩附件吧

whytobj · 发表于 2011-1-21 22:12

已经上传了

LangQueS · 发表于 2011-1-21 22:24

差不多都有重复……

LangQueS · 发表于 2011-1-21 22:35

Sub 宏1()
Application.Calculation = xlCalculationManual    '手动重算
For a = 1 To 26 '循环行
For b = 2 To 8 '循环列
      c = Cells(a, b).Value
      x = Application.WorksheetFunction.CountIf(Range("A1:H26"), c) '相同单元数量
         If x > 1 And Application.WorksheetFunction.CountIf(Range("i:i"), c) = 0 Then
            d = [i65536].End(xlUp).Row
            Cells(d + 1, "i") = c
            Cells(d + 1, "j") = x
         End If
Next
Next
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub

whytobj · 发表于 2011-1-21 23:35

谢谢啊

		自动登录	找回密码
密码			免费注册

[求助] 请教高手，如何在EXCELE中多列的数字选出相同的并标记