基于数组内工作表名称批量激活工作表的VBA代码失效问题

核心问题梳理 #

• 嵌套循环逻辑冗余混乱：外层已经通过For i = LBound(fruit) To UBound(fruit)遍历数组，内层又重复用For Each fru In fruit遍历同一数组，导致每个元素被重复处理，逻辑完全错误。
• 工作表引用错误：ThisWorkbook.Worksheets(fruit)中fruit是整个数组，不是单个工作表名称，应该使用当前遍历的数组元素（fruit(i)）。
• 未限定工作表的Cells引用：With块内的Cells没有加前缀.，导致始终操作当前激活的工作表，而非目标工作表。
• 内部循环提前退出：Exit For放在循环第一行就执行，导致只会清空第2行的D、E、F列，后续行完全没处理。
• 空值判断对象错误：If fruit <> ""判断的是整个数组，而非单个元素，应该判断当前遍历的元素是否为空。
• 冗余变量定义：Dim country As Variant定义后未使用，属于无效代码。
• 缺少工作表激活语句：如果需要激活目标工作表，需显式添加激活操作（注：VBA操作工作表无需强制激活，直接引用更高效）。

修正后的代码 #

Sub UpdateFruitSheets()
    Dim fruit As Variant
    Dim i As Long
    Dim slrow As Long
    Dim ws As Worksheet
    
    ' 假设fruit数组已提前赋值，示例：fruit = Array("APPLE", "PEAR", "GRAPE")
    
    For i = LBound(fruit) To UBound(fruit)
        fruit(i) = Trim(fruit(i))
        ' 跳过空的工作表名称
        If fruit(i) <> "" Then
            Set ws = ThisWorkbook.Worksheets(fruit(i))
            ' 激活目标工作表（如果需要可视化激活效果，可保留；否则删除以提升效率）
            ws.Activate
            With ws
                slrow = .Cells(.Rows.Count, 5).End(xlUp).Row
                ' 批量清空第2行到最后一行的D、E、F列
                For j = 2 To slrow
                    .Cells(j, 4).Value = 0
                    .Cells(j, 5).Value = 0
                    .Cells(j, 6).Value = 0
                Next j
            End With
        End If
    Next i
End Sub

额外说明 #

如果不需要激活工作表的可视化效果，建议删除ws.Activate语句，直接通过ws对象操作数据，这样能大幅提升代码运行效率，避免不必要的界面刷新。

内容的提问来源于stack exchange，提问作者Yuki