VBA中For Each wks In ActiveWindow.SelectedSheets列操作异常求助

问题根因 #

• xlCellTypeLastCell的特性缺陷：SpecialCells(xlCellTypeLastCell)返回的是工作表生命周期内曾经编辑过的最大单元格位置，而非当前实际有内容的最大单元格。你之前用过第50列作为临时参考列，删除后该方法仍会判定最后一列是50，导致循环范围远大于实际有数据的列，这是产生异常的核心原因。
• 单元格对象未绑定父工作表：With块内的Cells(1, iCol)没有加.前缀，不会绑定到你正在遍历的wks工作表，默认取当前活动工作表的单元格，逻辑容易出现偏差。
• 选中工作表遍历逻辑冗余：你仅需要处理刚新建的名为q的工作表，遍历ActiveWindow.SelectedSheets会误操作到其他同时选中的工作表，放大异常影响范围。

修复后的代码段 #

替换doTheJob函数末尾的插入对比列逻辑即可：

' 原有复制逻辑保留
wb.Activate
Sheets.Add(After:=Sheets(num)).Name = q
wb.Worksheets(z).Cells.Copy Destination:=wb.Worksheets(q).Range("A1")

' 修复后的插入对比列逻辑
Dim realLastCol As Long
' 直接指定处理刚新建的q工作表，无需遍历选中表
With wb.Worksheets(q)
    ' 取第一行实际有内容的最后一列，替代xlCellTypeLastCell
    realLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    For iCol = realLastCol To 2 Step -1
        .Columns(iCol).Insert
        ' 加.绑定当前工作表，避免引用活动表
        With .Cells(1, iCol)
            .Interior.Color = 65535
            .Value = .Offset(0, -1).Value & " - Comparison"
        End With
    Next iCol
End With

额外优化建议 #

• 尽量避免使用Activate、Select这类操作工作表的方法，直接通过工作表对象引用操作即可，可大幅降低逻辑出错概率
• 声明Range对象时指定父工作表，避免默认取活动工作表导致的范围偏差

内容的提问来源于stack exchange，提问作者Alex D.