请求合并两段Excel VBA代码并优化，解决运行时错误9问题

优化后的完整代码 #

Option Explicit

Sub Combined_Steps()
    Dim ws As Worksheet, wb As Workbook
    Dim headers() As Variant
    Dim xDir As String
    Dim folder As FileDialog
    Dim i As Long
    Dim targetSheet1 As Worksheet, targetSheet2 As Worksheet
    
    ' 关闭屏幕更新和警告，提升运行速度
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set wb = ThisWorkbook
    
    ' 遍历所有工作表，批量完成格式调整、列删除、表头设置
    For Each ws In wb.Worksheets
        ' 处理B列格式（仅针对已使用区域，避免整列操作浪费资源）
        With ws.UsedRange.Columns(2)
            .NumberFormat = "General"
            .Value = .Value
            .HorizontalAlignment = xlLeft
        End With
        
        ' 删除A列
        ws.Columns(1).Delete
        
        ' 设置统一表头
        headers = Array("sku", "barcode", "active", "price")
        ws.Rows(1).ClearContents
        For i = LBound(headers) To UBound(headers)
            ws.Cells(1, i + 1).Value = headers(i)
        Next i
        ws.Rows(1).Font.Bold = True
        
        Debug.Print ws.Name
    Next ws
    
    ' 处理指定工作表的行删除（先检查工作表是否存在，避免下标越界）
    On Error Resume Next
    Set targetSheet1 = wb.Sheets("x_ 659358")
    On Error GoTo 0
    If Not targetSheet1 Is Nothing Then
        targetSheet1.Rows("2:3").Delete Shift:=xlUp
    End If
    
    ' 删除指定工作表（先检查存在性）
    On Error Resume Next
    Set targetSheet2 = wb.Sheets("x_682549 (2)")
    On Error GoTo 0
    If Not targetSheet2 Is Nothing Then
        targetSheet2.Delete
    End If
    
    ' 选择保存路径并导出为CSV
    Set folder = Application.FileDialog(msoFileDialogFolderPicker)
    If folder.Show = -1 Then
        xDir = folder.SelectedItems(1)
        For Each ws In wb.Worksheets
            ws.SaveAs xDir & "\" & ws.Name, xlCSV
        Next ws
    End If
    
    ' 恢复系统默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

关键优化点及错误解决说明 #

1. 解决运行时错误9（下标越界）：
   原代码直接引用特定名称的工作表，若工作表不存在、名称拼写错误（比如空格、括号差异）就会触发报错。优化后先检查目标工作表是否存在，再执行操作，彻底避免此类错误。

2. 大幅提升运行效率：

   • 合并多次工作表循环，把格式调整、列删除、表头设置放在同一循环内，减少遍历次数。
   • 仅对工作表已使用区域的B列做格式处理，而非整列操作，减少无效计算。
   • 移除所有Select/Selection操作，直接操作工作表对象，消除不必要的界面交互损耗。

3. 规范代码逻辑：

   • 添加Option Explicit强制变量声明，避免未声明变量导致的隐性错误（原代码中wb和i未声明）。
   • 统一管理系统状态，仅在开头关闭ScreenUpdating和DisplayAlerts，结尾恢复，避免反复开关的性能浪费。

内容的提问来源于stack exchange，提问作者Hossam A.