基于ProductID列表批量筛选MainData并生成对应工作表的VBA需求

以下是优化后的VBA宏代码，可自动读取ProductIDs工作表中的单列ProductID列表，批量完成筛选、数据复制及新工作表创建操作：

Sub BatchSplitDataByProductID()
    Dim wsMain As Worksheet, wsIDs As Worksheet
    Dim lastRowIDs As Long, lastRowMain As Long
    Dim productID As Variant
    Dim wsNew As Worksheet
    Dim i As Long
    
    ' 绑定目标工作表
    Set wsMain = ThisWorkbook.Worksheets("MainData")
    Set wsIDs = ThisWorkbook.Worksheets("ProductIDs")
    
    ' 获取ProductIDs表的最后一行（默认ID在A列，可按需修改列标）
    lastRowIDs = wsIDs.Cells(wsIDs.Rows.Count, "A").End(xlUp).Row
    
    ' 清除MainData的现有筛选
    If wsMain.AutoFilterMode Then wsMain.AutoFilterMode = False
    
    ' 遍历所有ProductID
    For i = 2 To lastRowIDs ' 假设第1行是表头，从第2行读取ID
        productID = wsIDs.Cells(i, "A").Value
        
        ' 跳过空ID
        If productID = "" Then GoTo NextID
        
        ' 检查并删除已存在的同名工作表（可选逻辑）
        On Error Resume Next
        Set wsNew = ThisWorkbook.Worksheets(CStr(productID))
        If Err.Number = 0 Then
            Application.DisplayAlerts = False
            wsNew.Delete
            Application.DisplayAlerts = True
        End If
        On Error GoTo 0
        
        ' 创建新工作表并命名
        Set wsNew = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
        wsNew.Name = CStr(productID)
        
        ' 筛选MainData的F列（ProductID列）
        lastRowMain = wsMain.Cells(wsMain.Rows.Count, "F").End(xlUp).Row
        wsMain.Range("A1:AN" & lastRowMain).AutoFilter Field:=6, Criteria1:=productID ' AN对应第40列，可按需调整
        
        ' 复制筛选后的数据到新表
        wsMain.Range("A1:AN" & lastRowMain).SpecialCells(xlCellTypeVisible).Copy wsNew.Range("A1")
        
        ' 取消筛选
        wsMain.AutoFilterMode = False
        
NextID:
    Next i
    
    MsgBox "批量拆分完成！", vbInformation
End Sub

关键细节说明 #

• 工作表绑定：直接指定工作表对象，避免使用Activate/Select，提升宏的运行效率和稳定性
• 空值跳过：避免因ProductIDs表中的空行创建无效工作表
• 同名表处理：自动删除已存在的同名工作表（若不需要此逻辑，可注释掉对应代码块）
• 范围适配：代码中A1:AN覆盖40列数据，若实际列数不同，替换为对应列标即可
• 表头兼容：默认ProductIDs表第1行是表头，若ID从第1行开始，将循环起始值改为1即可

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