带循环的 VBA 工作表名称答案

【问题标题】：VBA Sheet Names with Loops带循环的 VBA 工作表名称
【发布时间】：2019-08-14 06:08:09
【问题描述】：

我的工作簿中有几张纸。它们分别称为 Sheet (1)、Sheet (2) 等。

我想运行一个循环来遍历每个工作表并突出显示特定的单元格。

我已尝试在 vba 中进行设置，但似乎无法弄清楚如何循环浏览工作表。

Dim i As Integer

For i = 1 To 13

Sheets("Sheet (" & i & ")").Columns("L").Delete Shift:=xlShiftToLeft

Next i

但是，这似乎并没有遍历每张纸。

【问题讨论】：

您是否要从每张工作表中删除列L？
为我工作。尽管您可能想要限定工作表所在的工作簿，但假设它是 ThisWorkbook。
试试Activeworkbook.Sheets("Sheet (" & i & ")").Columns("L").Delete Shift:=xlShiftToLeft
谢谢大家，帮助定义 Activeworkbook。
@Mikku 为什么使用 ActiveWorkbook？这是自找麻烦..

标签： excel vba

【解决方案1】：

您可以像下面这样循环浏览工作表：

Sub LoopSheets()
 
    Dim Sh As Worksheet

    For Each Sh In ActiveWorkbook.Sheets
        Sh.Columns("L").Delete Shift:=xlShiftToLeft
    Next Sh

End Sub

【讨论】：