VBA修改代码 使用输入对话框，输入一个终点站

laoau138

VBA修改代码  使用输入对话框，输入一个终点站

grf1973

1. Sub tt()
   
2.     Dim cz$, arr, i&
   
3.     cz = InputBox("请输入车站：")
   
4.     arr = [a1].CurrentRegion
   
5.     Application.ScreenUpdating = False
   
6.     ActiveSheet.Rows.Hidden = False
   
7.     For i = 3 To UBound(arr)
   
8.         If InStr(arr(i, 8), cz) = 0 Then Rows(i).Hidden = True
   
9.     Next
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码