Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 198|回复: 10

[求助] 在规定区域内检查是否有重复数据,如果有则将重复数据加红加粗

[复制链接]
发表于 2019-7-20 12:55 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
请教各位版主和老师:我求一个在同一区域内出现2个相同数值时字体变红色并加粗“宏”的程序。在我的附件中我将区域分为2个(C3:J10)、C13:J20),这2个区域无直接联系并以固定。表中红色加粗是我手动的。再有表中的程序我需要检查时才使用,具体见附件,谢谢!!!

Book2.rar

1.8 KB, 下载次数: 4

发表于 2019-7-20 14:49 | 显示全部楼层
鼠标选中区域后再运行

Book2.zip

14.6 KB, 下载次数: 5

评分

参与人数 1学分 +2 收起 理由
lmx + 2 学习了

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-7-21 15:27 | 显示全部楼层
回复

使用道具 举报

发表于 2019-7-22 09:45 | 显示全部楼层
QQ截图20190722093201.jpg
条件格式.rar (15.44 KB, 下载次数: 3)
回复

使用道具 举报

 楼主| 发表于 2019-7-22 20:40 | 显示全部楼层
爱疯 发表于 2019-7-22 09:45
Sub test()
    Call fc_uni([c3:j10])
    Call fc_uni([c13:j20])

感谢朋友的帮助,为什么宏程序报错呢?
回复

使用道具 举报

 楼主| 发表于 2019-7-22 20:43 | 显示全部楼层
爱疯 发表于 2019-7-22 09:45
Sub test()
    Call fc_uni([c3:j10])
    Call fc_uni([c13:j20])

为什么报错呢
QQ截图20190722203647.png
回复

使用道具 举报

发表于 2019-7-23 09:30 | 显示全部楼层

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

回复

使用道具 举报

 楼主| 发表于 2019-7-23 17:54 | 显示全部楼层
爱疯 发表于 2019-7-23 09:30
你的是03吗
4楼不支持03,2楼可以

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

使用道具 举报

 楼主| 发表于 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, 下载次数: 3)

评分

参与人数 1学分 +2 收起 理由
lmx + 2 程序非常好,表示感谢!!!

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2019-8-19 02:10 , Processed in 0.078000 second(s), 5 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表