如何在两个Excel工作表依次运行宏并设置终止条件？

嘿，刚接触VBA的话确实容易绕，我帮你把代码改成完全符合你需求的样子，还加了详细注释方便你学习～

你的需求回顾 #

• 有两个工作表（工作表1、工作表2），包含类似的8列数据
• 需要依次执行宏：
  1. 先处理工作表1，当A列出现空白单元格时立刻停止该表的宏
  2. 转而执行工作表2的宏，完成后直接退出整个Sub

你提供的原始代码 #

Sub Macro3()
Dim cell As Range
Dim i As Integer, row As Integer, column As Integer
Dim ws As Worksheet
i = 0
row = 1
column = 1
For Each ws In Worksheets
For Each cell In Range("$A:$A")
If Cells(row, 1) = "" Then Exit Sub
Else
If Mid(Cells(row, column), 1, 1) = "R" Then
Cells(row, column + 1) = "RES" & "_" & Cells(row, column + 5)
ElseIf Mid(Cells(row, column), 1, 2) = "FI" Then
Cells(row, column + 1) = "FID" & "_" & Cells(row, column + 5)
ElseIf Mid(Cells(row, column), 1, 1) = "F" Then
Cells(row, column + 1) = "FUSE" & "_" & Cells(row, column + 5)
ElseIf Mid(Cells(row, column), 1, 1) = "C" Then
Else
Cells(row, column + 1) = "N/A"
Cells(row, column + 1).Interior.ColorIndex = 37
End If
i = i + 1
row = i + 1
End If
Next cell
Next
End Sub

修改后的代码及详细说明 #

我调整了代码逻辑，解决了原始代码里的问题（比如遍历整个A列效率低、没有指定工作表容易出错等），完全贴合你的需求：

Sub ProcessSheets()
    Dim currentRow As Integer
    Dim ws As Worksheet
    
    ' --------------------------
    ' 第一步：处理【工作表1】，遇到A列空白就停止
    ' --------------------------
    Set ws = ThisWorkbook.Worksheets("工作表1") ' 明确指定要处理的第一个工作表
    currentRow = 1 ' 从第1行开始处理
    
    ' 循环处理每行，直到A列出现空白单元格
    Do While True
        ' 检查当前行的A列是否为空
        If ws.Cells(currentRow, 1).Value = "" Then
            Exit Do ' 遇到空白，立即停止处理工作表1
        End If
        
        ' 用Select Case替代多重ElseIf，结构更清晰
        Select Case Left(ws.Cells(currentRow, 1).Value, 2) ' 先取前2个字符判断，覆盖更多情况
            Case "R" ' 第一个字符是R
                ws.Cells(currentRow, 2).Value = "RES_" & ws.Cells(currentRow, 6).Value
            Case "FI" ' 前两个字符是FI
                ws.Cells(currentRow, 2).Value = "FID_" & ws.Cells(currentRow, 6).Value
            Case "F" ' 第一个字符是F（且不是FI开头）
                ws.Cells(currentRow, 2).Value = "FUSE_" & ws.Cells(currentRow, 6).Value
            Case "C" ' 第一个字符是C，保持空白（和你原始逻辑一致）
                ' 什么都不做
            Case Else ' 其他所有情况
                ws.Cells(currentRow, 2).Value = "N/A"
                ws.Cells(currentRow, 2).Interior.ColorIndex = 37
        End Select
        
        currentRow = currentRow + 1 ' 处理下一行
    Loop
    
    ' --------------------------
    ' 第二步：处理【工作表2】，同样遇到A列空白就停止
    ' --------------------------
    Set ws = ThisWorkbook.Worksheets("工作表2") ' 切换到第二个工作表
    currentRow = 1 ' 重置行号，从第1行开始
    
    ' 重复同样的处理逻辑
    Do While True
        If ws.Cells(currentRow, 1).Value = "" Then
            Exit Do ' 遇到空白，停止处理工作表2
        End If
        
        Select Case Left(ws.Cells(currentRow, 1).Value, 2)
            Case "R"
                ws.Cells(currentRow, 2).Value = "RES_" & ws.Cells(currentRow, 6).Value
            Case "FI"
                ws.Cells(currentRow, 2).Value = "FID_" & ws.Cells(currentRow, 6).Value
            Case "F"
                ws.Cells(currentRow, 2).Value = "FUSE_" & ws.Cells(currentRow, 6).Value
            Case "C"
                ' 无操作
            Case Else
                ws.Cells(currentRow, 2).Value = "N/A"
                ws.Cells(currentRow, 2).Interior.ColorIndex = 37
        End Select
        
        currentRow = currentRow + 1
    Loop
    
    ' 处理完成，弹出提示（可选，你可以删掉这行）
    MsgBox "两个工作表处理完成！"
End Sub

关键修改点说明 #

• 明确指定工作表：原始代码用For Each ws In Worksheets会遍历所有工作表，现在直接指定工作表1和工作表2，避免误操作其他表
• 高效的循环逻辑：原始代码遍历整个A列（几十万行），效率极低；改用Do While循环，遇到空白就立刻停止，速度快很多
• 清晰的判断结构：用Select Case替代多重ElseIf，代码更易读，以后修改规则也更方便
• 工作表前缀ws.：确保所有操作都针对当前指定的工作表，不会因为你手动切换工作表而出错
• 严格遵循你的需求顺序：先处理工作表1（遇空白即停），再处理工作表2，完成后退出Sub

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