2个回答
展开全部
步骤如下：
1.Alt+F11，输入如下代码：
2.F5执行代码，Sheet1中的A1:A10就填充上了不同的颜色：
本回答由电脑网络分类达人 李志平推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
百事牛
2024-10-22 广告
百事牛是共享提供商，我们提供可靠有效的服务，适当合理的授权费有利于的继续更新优化。同样的事情，同样的方法，百事牛团队十年磨一剑，始终至聚焦在密码恢复领域，深耕于此，我们已研制出有别于其他公司的算法和运算模式， 百事牛的暴力模式加入了分布式点...
点击进入详情页
本回答由百事牛提供
展开全部
Sub s()
Dim rg As Range, c As Range
Set rg = [k5:t14]
cd = 20
c1 = 3
c2 = 4
n = Cells(Rows.Count, c1).End(3).Row
Set d = CreateObject("scripting.dictionary")
For i = n - cd + 1 To n
d(Cells(i, c1).Text & Cells(i, c2).Text) = ""
Next
For Each c In rg
If d.exists(c.Text) Then c.Interior.ColorIndex = 6
Next
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
