在规定区域内检查是否有重复数据，如果有则将重复数据加红加粗

lmx · 发表于 2019-7-20 12:55

请教各位版主和老师：我求一个在同一区域内出现2个相同数值时字体变红色并加粗“宏”的程序。在我的附件中我将区域分为2个（C3:J10）、C13:J20)，这2个区域无直接联系并以固定。表中红色加粗是我手动的。再有表中宏的程序我需要检查时才使用，具体见附件，谢谢！！！

mytto88 · 发表于 2019-7-20 14:49

鼠标选中区域后再运行

lmx · 发表于 2019-7-21 15:27

还有没有比2楼朋友更好方法呢

爱疯 · 发表于 2019-7-22 09:45

条件格式.rar (15.44 KB, 下载次数: 3)

lmx · 发表于 2019-7-22 20:40

爱疯发表于 2019-7-22 09:45
Sub test()
Call fc_uni([c3:j10])
Call fc_uni([c13:j20])

感谢朋友的帮助，为什么宏程序报错呢？

lmx · 发表于 2019-7-22 20:43

爱疯发表于 2019-7-22 09:45
Sub test()
Call fc_uni([c3:j10])
Call fc_uni([c13:j20])

为什么报错呢

爱疯 · 发表于 2019-7-23 09:30

lmx 发表于 2019-7-22 20:43
为什么报错呢

你的是03吗
4楼不支持03，2楼可以

lmx · 发表于 2019-7-23 17:54

爱疯发表于 2019-7-23 09:30
你的是03吗
4楼不支持03，2楼可以

是的，我用的是office2003，你能给在03运行的程序吗，谢谢。

lmx · 发表于 2019-7-24 07:11

爱疯发表于 2019-7-23 09:30
你的是03吗
4楼不支持03，2楼可以

您能给在03运行的程序吗？谢谢！！！

爱疯 · 发表于 2019-7-24 11:32

Sub test()
Call uni([c3:j10])
Call uni([c13:j20])
End Sub

Sub uni(x As Range)
Dim d, y, v, a, t
Set d = CreateObject("scripting.dictionary")
For Each y In x
      v = y.Value
      a = y.Address
      If v <> "" Then If d.exists(v) Then t = t & "," & d(v) & "," & a Else d(v) = a
Next
If t = "" Then Exit Sub
With Range(Mid(t, 2)).Font
      .Color = vbRed
      .Bold = True
End With
End Sub

2.rar (9.38 KB, 下载次数: 4)

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

在规定区域内检查是否有重复数据，如果有则将重复数据加红加粗

评分

评分