能否通过VBA实现选择项的显示

吉仔

想实现附件“综合查询”工作表的筛选项，只要输入“系统设置”工作表对应的列设置的内容就可以实现显示，谢谢！

小凡、、、

传的一手好附件

吉仔

小凡、、、 发表于 2024-10-28 16:38
传的一手好附件

哈哈哈，原来附件有误

江声依旧

1. Sub 模糊匹配()
   
2. Dim i&, j&, k&, MyStrA$
   
3.     Range("B9:O65536").ClearContents
   
4.    
   
5.     For i = 2 To 14
   
6.         MyStrA = Cells(6, i + 1).Value
   
7.         If MyStrA <> "" Then
   
8.             With Sheets("维修记录")
   
9.                 For j = 2 To .Range("f" & Rows.Count).End(3).Row
   
10.                     If InStr(.Cells(j, i).Value, MyStrA) > 0 Then
    
11.                         k = Range("b" & Rows.Count).End(3).Row + 1
    
12.                         Range("b" & k & ":O" & k) = .Range("A" & j & ":N" & j).Value
    
13.                     End If
    
14.                 Next j
    
15.             End With
    
16.         End If
    
17.     Next i
    
18. End Sub

复制代码

吉仔

谢谢上面各位群友的帮忙，谢谢！