如何删除某些工作表中的列以及其他工作表中的其他列？Vba Excel

我想转到某些工作表并删除相同的列。但我还有另一组工作表，我想在其中删除其他列。这是我到目前为止的代码。它不起作用

Application.ScreenUpdating = False
Dim i As Long

  For i = 1 To Sheets.Count
  Select Case wks.Name
  Case "AT", "RA", "AO", "FO SG 380 PLT_CMA", "8K", "C3 CONW INW OPIS_CMA", "A5", "DIESEL OHR EIA_CMA", "BO", "DIESEL OHR EIA_CWA", "C3 MBEL TET OPIS_CMA", "GO ICE_CMA", "ULA2"
      Sheets(i).Range("S:AE").ClearContents
      Sheets(i).Range("O:O").ClearContents
      Sheets(i).Range("M:M").Clear Contents
      Sheets(i).Range("L:L").ClearContents
      Sheets(i).Range("G:H").ClearContents
  Case Else
      Sheets(i).Columns("S:AE").Delete
      Sheets(i).Columns("O:O").Delete
      Sheets(i).Columns("K:K").Delete
      Sheets(i).Columns("G:H").Delete
  End Select

Next i
Application.ScreenUpdating = True

我想你想要

Select Case Worksheets(i).Name

确保测试实际图纸名称循环

我还将循环使用工作表集合，以避免处理图表表（因此我使用上面的工作表）

所以循环应该是到

工作表。计数

ClearContents有一个输入错误，请决定是删除还是清除。

我想您需要

Select Case Worksheets(i).Name

确保测试实际图纸名称循环

我还将循环使用工作表集合，以避免处理图表表（因此我使用上面的工作表）

所以循环应该是到

工作表。计数

---

有一个ClearContents的输入错误，并决定是删除还是清除。

工作名称应该是Sheets（i）。Name？您是否将工作设置为工作表？看起来您可以对该工作簿中的每个工作执行

。工作表
，而不是使用@QHarr要求的iOr。把我揍一顿…：）@这就是问题所在！我没发现。非常感谢。工作名称是否应为工作表（i）.名称？您是否已将工作表设置为工作表？看起来您可以对该工作簿中的每个工作执行
。工作表
，而不是使用@QHarr要求的iOr。把我揍一顿…：）@这就是问题所在！我没发现。非常感谢。