如何在某数据区域内找出含有某一列中的数据并用颜色标识出来

ljs2007

谢谢坛友一直以来的热情相助，又有问题请教了：

如何在某数据区域内找出含有某一列中的数据并用颜色标识出来？

例如：在A列到I列找出并用颜色标识包含F列中的数据，如F列中的s,7,a,d,8。

ljs2007

大神帮帮忙呀！

hcm19522

格式化=COUNTIF($K$1:$K$11,A1)

ljs2007

hcm19522 发表于 2020-1-30 15:01
格式化=COUNTIF($K$1:$K$11,A1)

您的意思是A列用条件格式设置好，然后在其它列再用格式刷么？
不知能不能用VBA实现吗？

hcm19522

ljs2007 发表于 2020-1-30 15:32
您的意思是A列用条件格式设置好，然后在其它列再用格式刷么？
不知能不能用VBA实现吗？

圈選A1:I41 用条件格式

liulang0808

1. Sub 按钮1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     arr = ActiveSheet.UsedRange
   
5.     For j = 1 To UBound(arr)
   
6.         If Len(arr(j, 11)) > 0 Then d(arr(j, 11)) = ""
   
7.     Next j
   
8.     Set Rng = Nothing
   
9.     For j = 1 To UBound(arr)
   
10.         For i = 1 To 9
    
11.             If d.exists(arr(j, i)) Then
    
12.                 If Rng Is Nothing Then
    
13.                     Set Rng = Cells(j, i)
    
14.                 Else
    
15.                     Set Rng = Union(Rng, Cells(j, i))
    
16.                 End If
    
17.             End If
    
18.         Next i
    
19.     Next j
    
20.     If Not Rng Is Nothing Then Rng.Interior.ColorIndex = 3
    
21.     Application.ScreenUpdating = True
    
22. End Sub
    

复制代码

liulang0808

如果需要vba处理，请到vba板块发帖

ljs2007

liulang0808 发表于 2020-1-30 21:36
如果需要vba处理，请到vba板块发帖

好的，谢谢大神的再次相助！

ljs2007

liulang0808 发表于 2020-1-30 21:35

请问大神，如果数据有更多列（例子中只有A列到I列），待挑选数据在FA列（例子在K列），FA列数据也更长的话（不只11个单元格数据），代码要怎么修改好呢？

liulang0808

ljs2007 发表于 2020-1-30 23:28
请问大神，如果数据有更多列（例子中只有A列到I列），待挑选数据在FA列（例子在K列），FA列数据也更长的 ...

对应的数组边界修改， 读入字典的内容修改