历遍工作表对应列查询的问题

ykcbf1100

杨小妹 发表于 2024-7-26 15:28
老师你好，谢谢帮助。这个程序因事先考虑欠周，未能起到应有作用。我想把条件换成只输入B1.比如B1输入任 ...

改一下好了。

ykcbf1100

双条件改成单条件

1. Sub ykcbf()  '//2024.7.26
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ThisWorkbook.Sheets("Sheet0")
   
4.     st = sh.[b1].Value
   
5.     ReDim brr(1 To 10000, 1 To 9)
   
6.     For Each sht In Sheets
   
7.         If sht.Name <> sh.Name Then
   
8.             With sht
   
9.                 r = .Cells(Rows.Count, 1).End(3).Row
   
10.                 arr = .[a1].Resize(r, 8)
    
11.                 For i = 2 To UBound(arr)
    
12.                     If arr(i, 8) = st Then
    
13.                         m = m + 1
    
14.                         For j = 1 To UBound(arr, 2)
    
15.                             brr(m, j) = arr(i, j)
    
16.                         Next
    
17.                         brr(m, 9) = .Name
    
18.                     End If
    
19.                 Next
    
20.             End With
    
21.         End If
    
22.     Next
    
23.     With sh
    
24.         .[a5:i10000] = ""
    
25.         .[a5].Resize(m, 9) = brr
    
26.     End With
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

杨小妹

ykcbf1100 发表于 2024-7-26 15:50
改一下好了。

谢谢老师。效果很好。没分了，明天补上。

hyhsql

老师：假如筛选的对象不是数字，代码怎么改