一键批量删除6表相同的15列

hongyunhada

求VBA代码：在总成绩表中执行，一键批量删除后面6表中2、4、5、8、9、10、11、12、13、14、16、18、20、22、24共15列, 即B\D\E\H\I\J\K\L\M\N\P\R\T\V\X列。

gwjkkkkk

请楼主参考 。。。

gwjkkkkk

Sub TEST()
    Dim arr, i&, j&, wks As Worksheet, rng As Range
    arr = Array(2, 4, 5, 8, 9, 10, 11, 12, 13, 14, 16, 18, 20, 22, 24)
    For Each wks In ThisWorkbook.Sheets
       If wks.Name Like "*年级" Then
          With wks
            Set rng = Nothing
            For i = 0 To UBound(arr)
                If rng Is Nothing Then
                  Set rng = .Columns(arr(i))
                  Else
                  Set rng = Union(rng, .Columns(arr(i)))
                End If
            Next
          End With
          rng.Delete
       End If
    Next wks
End Sub

E风卍行H

Private Sub 删除列()
    Dim i As Integer, n As Integer
    For i = Sheets.Count To 1 Step -1
        n = n + 1
        If n <= 6 Then
            Sheets(i).Range("B:B,D:D,E:E,H:H,I:I,J:J,K:K,L:L,M:M,N:N,P:P,R:R,T:T,V:V,X:X").Delete
        Else
            Exit Sub
        End If
    Next i
End Sub

hongyunhada

E风卍行H 发表于 2022-11-12 17:21
Private Sub 删除列()
    Dim i As Integer, n As Integer
    For i = Sheets.Count To 1 Step -1

值得肯定，但这样表述的代码，会删除其它后面表格中列。

E风卍行H

hongyunhada 发表于 2022-11-12 22:09
值得肯定，但这样表述的代码，会删除其它后面表格中列。

【值得肯定】这话真不喜欢，就感觉对面是个领导