Vba打开excel文件 按条件拆分

可以使用VBA编写宏来实现按条件拆分Excel文件的功能。以下是一个简单的示例代码，您可以根据自己的需求进行修改：

Sub SplitData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim criteria As String
    Dim savePath As String
    
    '设置条件和保存路径
    criteria = "条件值"
    savePath = "保存路径"
    
    '循环每个工作表
    For Each ws In ThisWorkbook.Worksheets
        '获取最后一行
        lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
        
        '循环每行数据
        For i = 2 To lastRow '假设第一行是标题行，从第二行开始循环
            '根据条件值进行拆分
            If ws.Cells(i, 1).Value = criteria Then
                '将符合条件的行复制到新工作簿
                ws.Rows(i).Copy
                Workbooks.Add
                ActiveSheet.Paste
                '保存工作簿
                ActiveWorkbook.SaveAs savePath & "\" & ws.Name & "_" & i & ".xlsx"
                ActiveWorkbook.Close
            End If
        Next i
    Next ws
End Sub

在代码中，您需要设置条件值和保存路径。然后，循环每个工作表和每行数据，并根据条件值进行拆分。如果符合条件，将行复制到新工作簿并保存为单独的Excel文件。您可以根据自己的需求修改代码。