请求协助完善VBA代码：忽略指定区域中的空白单元格

嘿，你的问题我看明白了——运行时错误9是下标越界，根源是循环到空单元格或者不存在的工作表时，代码没做处理就硬执行复制操作，而且你原来用Exit Sub是直接终止整个程序，不是跳过当前单元格，当然没用啦。

我给你改好了代码，同时加了双重防护：跳过空单元格，还能处理“找不到对应工作表”的情况，避免程序崩溃。来看完整代码：

Sub Iedextraction()
    Dim wkb As Excel.Workbook, wkb1 As Excel.Workbook
    Dim wks As Excel.Worksheet, wks1 As Excel.Worksheet
    Dim cell As Range
    Dim rng As Range
    
    ' 打开目标工作簿并直接赋值给变量，比后续通过名称引用更靠谱
    Set wkb1 = Workbooks.Open(Filename:= _
        "D:\Projects\ASE Templates\ASE Template White Book.xlsx")
    ' 引用当前的工作簿和存放表名的工作表
    Set wkb = Excel.Workbooks("ASE RTU Addressing with Automation.xlsm")
    Set wks = wkb.Worksheets("Tab Names from White book")
    ' 设定要遍历的区域
    Set rng = wks.Range("A1:A54")
    
    ' 开始遍历每个单元格
    For Each cell In rng
        ' 第一步：先检查单元格是不是空（Trim是为了排除只有空格的情况）
        If Trim(cell.Value) = "" Then
            GoTo SkipThisCell ' VBA里没有Continue，用GoTo实现跳过当前单元格
        End If
        
        ' 第二步：加错误处理，防止找不到对应工作表时报错
        On Error Resume Next
        ' 执行复制操作，这里用变量代替重复写长名称，更简洁
        wkb1.Sheets(cell.Value).Copy After:=wkb.Sheets(4)
        ' 如果复制出错（比如工作表不存在），弹个提示然后跳过
        If Err.Number <> 0 Then
            MsgBox "找不到工作表 '" & cell.Value & "'，已跳过这个单元格", vbExclamation
            Err.Clear ' 清除错误状态，不影响下一次循环
        End If
        On Error GoTo 0 ' 恢复默认错误处理
        
SkipThisCell: ' 标记跳过的位置，循环会直接到Next cell
    Next cell
    
    ' 可选：如果你打开的工作簿不需要保留，可以在这里关闭（根据需求选是否保存）
    ' wkb1.Close SaveChanges:=False
End Sub

几个关键的修改点： #

• 正确跳过空单元格：把空单元格判断放在复制操作之前，用GoTo跳过当前循环的剩余代码，而不是Exit Sub直接终止程序——这是你之前方法无效的核心原因。
• 添加错误捕获：针对“工作表不存在”的情况加了错误处理，就算遇到不存在的表名，程序也会提示并继续运行，不会直接崩溃。
• 优化对象引用：把Workbooks.Open直接赋值给wkb1，避免后续因为工作簿名称变化导致的引用错误；用wkb.Sheets(4)代替重复写完整工作簿名称，代码更清爽。
• 额外小技巧：如果以后你的有效数据区域会变化，不想固定写A1:A54，可以用Set rng = wks.Range("A1", wks.Cells(wks.Rows.Count, "A").End(xlUp))，这样会自动获取A列从A1开始的所有非空单元格区域，更灵活。

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