搜索指定列的红色字体在另一指定列相应单元格进行标注

AFree123

搜索指定列的红色字体在另一指定列相应单元格进行标注

1、搜索B列，如果发现B列的单元格为红色字体，那么在G列相应的单元格内标注“红1”、“红2”、“红3”。。。依次计数，结果如同G列。

2、搜索B列，如果发现B列的单元格为红色字体，那么在H列相应的单元格内标注为：“信息”+C列对应单元格内容：如“信息201”、“信息219”、“信息227”。。。如果C列对应单元格没有内容，则在H列相应的单元格内标注为：“项目2为空”，项目2为标题，如H8、H56均显示为“项目2为空”在结果如同H列。

3、本例仅是部分数据，实例有数千条数据。

可否使用VBA一键求得，请大师帮帮忙！谢谢！

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     r = 0
   
4.     For j = 3 To Cells(Rows.Count, 2).End(3).Row
   
5.         If Cells(j, 2).Font.ColorIndex = 3 Then
   
6.             r = r + 1
   
7.             Cells(j, 7) = "红" & r
   
8.             If Len(Cells(j, 3)) = 0 Then
   
9.                 Cells(j, 8) = "项目2为空"
   
10.             Else
    
11.                 Cells(j, 8) = "信息" & Cells(j, 3)
    
12.             End If
    
13.         End If
    
14.     Next j
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

AFree123

liulang0808 发表于 2020-1-14 08:28

谢谢老师！正是我需要的。