新人求助各位VBA大神 数据筛选的问题 功能比较简单 但第一次尝试还是没成功

8止战之殇8

要实现的功能比较简单，但是尝试还是失败了...

搜索H列，从单元格H31开始，如果单元格包含元素a  和 b ，将a  和b 标红。

2,   同样循环在单元格H32执行此操作，如果包含一个元素，就标红一个，两个就标红两个，如果没有，继续下一个

3，循环到此列结束。（单元格为空为止）

我能搜索到这个元素（If InStr）但是不会一个单元格只标红某几个字符，一红就单元格都红了....我想法是假如单元格里包含OPTa这个变量直接让这个变量变红，然后搜索第2个变量，有几个红几个
但是不知道怎么弄，
应该用len吗？
循环也没弄明白....  求助
Sub 搜索单元格?)   '搜索        Dim OPTa As String        Dim OPTb As String        Dim OPTc As String        Dim X As String        Dim pos As Integer          OPTa = "B-SS"        OPTb = "B-LES"        OPTc = "TRAY"        X = Range("H37")      Range("H37").Select       If InStr(X, OPTa) > 0 Then        MsgBox "包含"        Else        MsgBox "不包含"          End If   Range("H37").Select    With ActiveCell.Characters(Start:=6, Length:=5).Font        .ColorIndex = 3    End With     Dim i As Integer     ' For i = 1 To 855     ' Cells(i, 1) = i     ' Next       ' With Selection.Font    '    .Color = -16776961     '   .TintAndShade = 0    'End With       End Sub

8止战之殇8

格式为啥乱了  再发一次.....
Sub 搜索单元格
'搜索        
Dim OPTa As String        
Dim OPTb As String        
Dim OPTc As String        
Dim X As String        
Dim pos As Integer         
OPTa = "B-SS"        
OPTb = "B-LES"        
OPTc = "TRAY"        
X = Range("H37")      
Range("H37").Select      
If InStr(X, OPTa) > 0 Then        
MsgBox "包含"        
Else        
MsgBox "不包含"         
End If   Range("H37").Select   
With ActiveCell.Characters(Start:=6, Length:=5).Font        .ColorIndex = 3   
End With     
Dim i As Integer     
' For i = 1 To 855     
' Cells(i, 1) = i   
' Next      
' With Selection.Font   
'    .Color = -16776961     
'   .TintAndShade = 0   
'End With      
End Sub

龙城飞将III

上传个附件吧，你已经差不多抓住要点了啊，Characters(Start:=6, Length:=5).Font

8止战之殇8

龙城飞将III 发表于 2017-12-7 20:01
上传个附件吧，你已经差不多抓住要点了啊，Characters(Start:=6, Length:=5).Font

我直接上传Excel 显示不支持的格式....

龙城飞将III

8止战之殇8 发表于 2017-12-7 20:02
我直接上传Excel 显示不支持的格式....

压缩成rar或7z后上传

8止战之殇8

龙城飞将III 发表于 2017-12-7 20:01
上传个附件吧，你已经差不多抓住要点了啊，Characters(Start:=6, Length:=5).Font

Characters(Start:=6, Length:=5).Font
这个的确能让局部变红，但是我的变量OPTa不一定开头是6啊，这是我做实验的时候写的
我怎么才能知道这个变量在第几位呢？

8止战之殇8

的确  .zip 识别了

8止战之殇8

龙城飞将III 发表于 2017-12-7 20:04
压缩成rar或7z后上传

首先 感谢您抽时间答复我的帖子，我已经把附件上传上去了
期待您给我解惑

龙城飞将III

8止战之殇8 发表于 2017-12-7 20:10
的确  .zip 识别了

1. Sub LCFJIII()
   
2.         
   
3.         Dim rng As Range
   
4.         Dim strMatch1 As String
   
5.         Dim strMatch2 As String
   
6.         
   
7.         strMatch1 = "B-SS"
   
8.         strMatch2 = "CYC/D"
   
9.         
   
10.         With Sheet1
    
11.                 For Each rng In .Range(.Cells(30, "H"), .Cells(.Rows.Count, "H").End(xlUp))
    
12.                         With rng
    
13.                                 If InStr(rng, strMatch1) Then
    
14.                                         .Characters(InStr(rng, strMatch1), Len(strMatch1)).Font.Color = RGB(255, 0, 0)
    
15.                                 End If
    
16.                                 If InStr(rng, strMatch2) Then
    
17.                                         .Characters(InStr(rng, strMatch2), Len(strMatch2)).Font.Color = RGB(255, 0, 0)
    
18.                                 End If
    
19.                         End With
    
20.                 Next
    
21.         End With
    
22. 
    
23. End Sub

复制代码

默认每个单元格中，每个匹配元素最多出现一次了哈
要匹配的字符串比较多的话，就放进数组，循环数组，

8止战之殇8

龙城飞将III 发表于 2017-12-7 20:23
默认每个单元格中，每个匹配元素最多出现一次了哈
要匹配的字符串比较多的话，就放进数组，循环数组，

的确只会出现一次  不过要搜的元素可能会有很多  7-8个  都需要标红
还有 这个单元格完成后 我需要相同循环到此列结尾  一直到单元格没有东西为止
这块我也不会....还望不吝赐教