如何修改VBA宏从选中Excel工作表开始向右批量执行代码？

Got it, let's break down how to fix this and make your macro way more resilient to those annoying server interruptions.

核心需求解决：从选中工作表开始遍历 #

Your original code uses For Each xsheet In ThisWorkbook.Worksheets, which always starts at the first worksheet—no wonder you're redoing work after restarts. Instead, we can grab the index of your currently selected sheet and loop from that point to the last worksheet.

Here's the revised code snippet:

Sub ProcessFromSelectedSheet()
    Dim currentSheetIndex As Integer
    Dim i As Integer
    Dim targetSheet As Worksheet
    
    ' 获取当前激活工作表的索引
    currentSheetIndex = ActiveSheet.Index
    
    ' 从选中的工作表开始，遍历右侧所有工作表
    For i = currentSheetIndex To ThisWorkbook.Worksheets.Count
        Set targetSheet = ThisWorkbook.Worksheets(i)
        
        ' 替换成你的实际处理逻辑
        ' 示例：targetSheet.Range("A1").Value = "已处理"
        targetSheet.Select ' 仅当你的逻辑必须选中工作表时保留此行
        
        ' 在这里添加你的其他操作...
    Next i
End Sub

关键优化：抛弃Select提升性能 #

给你个实用小技巧：Select会拖慢宏的运行速度，而且如果运行中用户点击了其他内容，很容易出错。直接操作工作表对象才是更优的方式。比如你要填充某个单元格，把targetSheet.Select加上Range("A1").Value = "X"，替换成：

targetSheet.Range("A1").Value = "X"

这样运行更快，还能避免不必要的界面交互。

进阶优化：服务器中断后自动续跑 #

既然服务器中断是常事，我们可以加个进度追踪器，下次重启宏时不用手动选工作表，直接从上次中断的位置继续。我们会把最后处理的工作表索引存在一个隐藏的"进度追踪"工作表里：

Sub ResumeProcess()
    Dim progressSheet As Worksheet
    Dim lastProcessedIndex As Integer
    Dim startIndex As Integer
    Dim i As Integer
    Dim targetSheet As Worksheet
    
    ' 检查进度追踪表是否存在，不存在则创建
    On Error Resume Next
    Set progressSheet = ThisWorkbook.Worksheets("ProgressTracker")
    On Error GoTo 0
    
    If progressSheet Is Nothing Then
        Set progressSheet = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
        progressSheet.Name = "ProgressTracker"
        progressSheet.Visible = xlSheetVeryHidden ' 隐藏防止误编辑
        progressSheet.Range("A1").Value = "LastProcessedIndex"
        progressSheet.Range("B1").Value = 0 ' 初始状态：未处理任何工作表
    End If
    
    ' 获取上次中断时处理到的位置
    lastProcessedIndex = progressSheet.Range("B1").Value
    
    ' 确定起始点：如果有保存的进度，从下一张开始；否则用当前激活的工作表
    If lastProcessedIndex > 0 Then
        startIndex = lastProcessedIndex + 1
    Else
        startIndex = ActiveSheet.Index
    End If
    
    ' 处理边界情况：如果所有工作表都已处理完
    If startIndex > ThisWorkbook.Worksheets.Count Then
        MsgBox "所有工作表都已处理完成！"
        Exit Sub
    End If
    
    ' 处理剩余工作表
    For i = startIndex To ThisWorkbook.Worksheets.Count
        Set targetSheet = ThisWorkbook.Worksheets(i)
        
        ' 你的处理逻辑写在这里
        ' ...
        
        ' 更新进度并保存工作簿，防止进度丢失
        progressSheet.Range("B1").Value = i
        ThisWorkbook.Save
    Next i
    
    ' 所有工作表处理完成后重置进度（可选）
    progressSheet.Range("B1").Value = 0
    MsgBox "剩余工作表全部处理完成！"
End Sub

这样就算服务器中途断开，你只要重新运行宏，它会自动从上次中断的地方继续，完全不用手动选工作表。

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