网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
07月12日漏签0天
vba吧 关注:17,096贴子:66,993
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 9回复贴,共1页
<<返回vba吧
>0< 加载中...

急求大神,怎么把多列文本都出现的重复值标记不同颜色

  • 取消只看楼主
  • 收藏

  • 回复
  • 北海不北
  • 人海孤鸿
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
急求大神,怎么把多列文本都出现的重复值标记不同颜色


  • 北海不北
  • 人海孤鸿
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
求3列以上的,共同重复的文本标记颜色,不是出现2个重复就会标记颜色


2026-07-12 19:19:00
广告
不感兴趣
开通SVIP免广告
  • 北海不北
  • 人海孤鸿
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
网上找到一个,但是还是2个重复就标记颜色了


  • 北海不北
  • 人海孤鸿
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Sub InterColor2()
Dim myrange As Range, n As Range
h = 3
Do While h < 31
For l = 3 To 20
Set myrange = Cells(l, h)
For Each n In Range("C3:T30")
If n.Value = Cells(l, h).Value Then
Set myrange = Union(myrange, n)
myrange.Interior.Color = RGB((Int(256 * Rnd())), (Int(256 * Rnd())), (Int(256 * Rnd())))
End If
Next
Next
h = h + 1
Loop
End Sub


  • 北海不北
  • 人海孤鸿
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
VBA小白看不懂这些数值的含义,只明白C3:T30……


  • 北海不北
  • 人海孤鸿
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
在线等


  • 北海不北
  • 人海孤鸿
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
有大神知道吗


  • 北海不北
  • 人海孤鸿
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼


2026-07-12 19:13:00
广告
不感兴趣
开通SVIP免广告
  • 北海不北
  • 人海孤鸿
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
这张比较简单一点,3列当中都出现的项目才会标记成不同颜色
我用上面我复制的代码执行过,经常会多出很多空格会有颜色,区域无法控制,2个重复就标记,搞得头很大


  • 北海不北
  • 人海孤鸿
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
大神们有时间的麻烦帮小弟发一下,最好能解释下参数含义,我经常会用这个,帮忙的可以发个小红包,🙏🙏


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 9回复贴,共1页
<<返回vba吧
分享到:
©2026 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示