《以解决》区域内某单元格包含了A列某单元格全部内容，A列被包含者红色标注 顺序不乱

neicezhanghao

如题详情在附件
我这跟 彩票股票 没任何关系 和赌博 博弈 没任何关系
希望好心人不吝赐教

大灰狼1976

本来看着不难，被345678凭添了几分难度。

1. Sub test()
   
2. Dim s$, rng As Range, i&
   
3. For i = 7 To 15
   
4.   s = Cells(i, 1)
   
5.   s = Format(s, Application.Rept("0\*", Len(s)))
   
6.   Set rng = [b7:h33].Find(s)
   
7.   If Not rng Is Nothing Then Cells(i, 1).Font.Color = vbRed
   
8. Next i
   
9. End Sub

复制代码

neicezhanghao

大灰狼1976 发表于 2020-6-29 22:04
本来看着不难，被345678凭添了几分难度。

版主都降临了 万分感谢 亲爱的版主 蓬荜生辉 祝版主 开心顺序 功德无量

大灰狼1976

你就说能不能用吧，被你一顿夸，心里有点虚

neicezhanghao

大灰狼1976 发表于 2020-6-30 22:13
你就说能不能用吧，被你一顿夸，心里有点虚

能用能用 简单明了 非常好用  目前一切正常 谢谢版主 强大

ahn

neicezhanghao 发表于 2020-7-1 08:06
能用能用 简单明了 非常好用  目前一切正常 谢谢版主 强大

您这是退而求其次呢！确定可以满足原来的需求？
可以测试以下数据：

结果      A列            B-H列            
符合      12345        9192939495
符合      54321        27717717
符合      1177777    8888
不符合   88888

neicezhanghao

ahn 发表于 2020-7-1 08:42
您这是退而求其次呢！确定可以满足原来的需求？
可以测试以下数据：

非也非也 从未进 何为退？不存精中精 谈何次其次？
数据随性 状况不一 需求不一 不断实践 不断改善
现 精已从主出 简明了 真所需
劝 莫腹黑 多行善 财不着 冥顽完