反选工作表求助

chj6533

刚学VBA。。在此求助下各位老师。

我的工作簿里有若干工作表。我要   除sheet1, sheet3 ,sheet4（是根据情况我自定）不激活外，其它只要存在的都激活，怎么写代码？？？谢谢了！

另：还想咨询下，，，用for循环  数据很大时  会运行很长时间，或死机。。。。VBA是有办法解决吧，，是用什么？只说方法即可。我后面再学。。

gwjkkkkk

请参考....
另外用for 循环，可将数据读入数组再进行处理，最后导出 。。。

lss001

Sub 反选工作表()
    Dim br(), i%, j%, k%
    On Error Resume Next
    ar = Array("Sheet1", "Sheet3", "Sheet4")
    For Each Sh In Worksheets
        k = 0
        For i = 0 To UBound(ar)
            If Sh.Name <> ar(i) Then k = k + 1
        Next
        If k = i  Then
             ReDim Preserve br(j)
             br(j) = Sh.Name
             j = j + 1
        End If
    Next
    Worksheets(br).Select
End Sub

chj6533

gwjkkkkk 发表于 2022-4-27 20:01
请参考....
另外用for 循环，可将数据读入数组再进行处理，最后导出 。。。

谢谢你，好人好运

chj6533

lss001 发表于 2022-4-27 20:29
Sub 反选工作表()
    Dim br(), i%, j%, k%
    On Error Resume Next

谢谢你，好人好运

ykcbf1100

反向选择工作表

1. Sub test()   '//2025.3.15   反向选择
   
2.     xm = "Sheet1|Sheet3|Sheet4"
   
3.     For Each sht In Worksheets
   
4.         If InStr(xm, sht.Name) = 0 Then
   
5.             m = m + 1
   
6.             If m = 1 Then sht.Select Else sht.Select False
   
7.         End If
   
8.     Next
   
9.     ActiveWindow.SelectedSheets.Select
   
10. End Sub
    

复制代码