excel每个单元格包含3个词，有6列，怎么把列与列之间单元格，只要词反复2个以上的删选出来？

wangliqxm · 发表于 2024-3-3 00:33:23

心随674 · 发表于 2024-3-3 00:33:41

<div class="content-rich-box rich-text-" ><div class="law-answer-wrapper-highlight">Sub 找字改色()
For i = 1 To 100
For k = 1 To 100
      b = Right(Cells(k, 1), 10)
      c = Split(b, "  ")
         For j = 0 To UBound(c)
            a = c(j)
            If InStr(Cells(i, 2), a) > 0 Then Cells(i, 2).Characters(InStr(Cells(i, 2), a), Len(a)).Font.Color = RGB(255, 0, 0)
         Next j
Next k
Next i
End Sub
excel每个单元格包含3个词，有6列，怎么把列与列之间单元格，只要词反复2个以上的删选出来？
z1.jpg

excel每个单元格包含3个词，有6列，怎么把列与列之间单元格，只要词反复2个以上的删选出来？
z1.jpg

千山落月坝 · 发表于 2024-3-6 23:18:46

感谢分享！！

平静769 · 发表于 2024-3-9 04:24:20

感谢分享，支持黑防联盟

侬去斯 · 发表于 2024-3-12 07:58:25

不管你信不信，反正我是信了。

做我的仆人 · 发表于 2024-3-15 17:22:21

不管你信不信，反正我是信了。

宇红exol欣 · 发表于 2024-3-17 23:42:33

感谢分享，收藏了

penguinzhuyun · 发表于 2024-3-20 14:30:20

永远支持中国黑防联盟：www.vcs6.com

916440521 · 发表于 2024-3-20 18:46:31

永远支持黑防联盟

去火星三小时自 · 发表于 2024-3-22 00:55:20

真的可以用，感谢楼主，顶一下

[智能手机] excel每个单元格包含3个词，有6列，怎么把列与列之间单元格，只要词反复2个以上的删选出来？

站长推荐 /1