数据筛选

hayleyli

各位大侠：
       请问怎样将带有标记的单元格数据筛选出来？
       如附件这种情况：

咔咔乱坠

筛选好像不行吧，可以用ctrl+G,定位，批注

ww87725244

1. Sub aa()
   
2. Dim rng, s, ar(1 To 100, 1 To 2)
   
3. With Sheet1
   
4.     For Each rng In .Range("B2:B11")
   
5.         If Not rng.Comment Is Nothing Then
   
6.             s = s + 1
   
7.             ar(s, 1) = rng.Offset(0, -1).Value
   
8.             ar(s, 2) = rng.Value
   
9.         End If
   
10.     Next
    
11.     .[d1].Resize(UBound(ar), UBound(ar, 2)) = ar
    
12. End With
    
13. End Sub
    

复制代码

良良

定位批注单元格，填充红色，再筛选红色单元格。

hayleyli

咔咔乱坠 发表于 2024-10-12 16:24
筛选好像不行吧，可以用ctrl+G,定位，批注

是喔，谢谢

hayleyli

良良 发表于 2024-10-12 16:46
定位批注单元格，填充红色，再筛选红色单元格。

谢谢，只能这样做罗

mjm04

hayleyli 发表于 2024-10-12 17:20
谢谢，只能这样做罗

只能这样，函数识别不了批注的