VBA遍历指定工作表填充A列值失败，程序卡顿求助

核心问题分析 #

• 中文全角引号引发语法异常：代码里的“A”、“done”、“”都是中文全角引号，VBA仅支持英文半角引号，这类错误会直接导致代码执行紊乱，甚至陷入无响应状态。
• MsgBox位置错误：MsgBox "done"被放在单个工作表的处理逻辑内，且受语法错误影响，弹出一次提示后代码执行流程彻底混乱。
• 未限定工作表的行数引用：Endrow = .cells(rows.count, “A”).end(xlup).row中的rows.count没有绑定当前目标工作表，应该写成.Rows.Count，否则会错误引用当前激活表的行数，导致Endrow计算偏差。
• 变量声明位置不规范：Dim endrow as integer和Dim i as integer放在工作表循环内部，容易引发变量作用域混淆，干扰代码执行逻辑。

修正后的代码 #

Dim wksheets As Variant
Dim wksheet As Long
Dim ws As Worksheet
Dim endrow As Integer
Dim i As Integer

wksheets = Array("apple", "pear", "orange")

For wksheet = LBound(wksheets) To UBound(wksheets)
    Set ws = Worksheets(wksheets(wksheet))
    With ws
        ' 无需激活工作表，直接操作更高效
        endrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        ' 避免A列只有表头时出现无效循环
        If endrow >= 2 Then
            For i = 2 To endrow
                ' 按需求依次填充序号，无论原单元格是否为空
                .Cells(i, "A").Value = i - 1
            Next i
        End If
    End With
Next wksheet
MsgBox "所有工作表处理完成"

额外优化说明 #

• 移除.Activate：激活工作表会降低执行效率，直接通过ws对象操作更高效稳定。
• 增加endrow >=2判断：避免A列仅A1有数据时，出现For i=2 to 1的无效循环场景。
• 统一提示位置：将MsgBox移到外层循环结束后，批量处理完成后统一提示，更符合操作逻辑。

内容的提问来源于stack exchange，提问作者진애슐린