如何根据excel里的某列的不同值拆分数据

要根据Excel中某列的不同值拆分数据，可以使用VBA编写以下代码：

Sub SplitDataByColumnValue()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim cellValue As Variant
    Dim dict As Object
    
    ' 设置源工作表和目标工作表
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 设置源列的范围
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    Set sourceRange = ws.Range("A1:A" & lastRow)
    
    ' 创建一个字典来存储唯一的列值
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 遍历源列并将唯一值添加到字典中
    For Each cell In sourceRange
        cellValue = cell.Value
        If Not dict.exists(cellValue) Then
            dict.Add cellValue, True
        End If
    Next cell
    
    ' 创建新工作表并复制对应值的行
    For Each key In dict.keys
        ' 创建新工作表
        Set newWs = ThisWorkbook.Worksheets.Add
        newWs.Name = key
        
        ' 过滤源工作表的数据，复制匹配的行到新工作表
        ws.AutoFilterMode = False
        sourceRange.AutoFilter Field:=1, Criteria1:=key
        ws.UsedRange.SpecialCells(xlCellTypeVisible).Copy newWs.Range("A1")
        ws.AutoFilterMode = False
        
        ' 自动调整新工作表的列宽
        newWs.Columns.AutoFit
    Next key
    
    ' 显示完成提示
    MsgBox "数据已根据列值拆分到不同的工作表中！"
End Sub

将上述代码复制到Excel VBA编辑器中的一个模块中（按下`Alt+F11`打开VBA编辑器），然后运行该宏。它将根据指定列的不同值创建不同的工作表，并将相应的行复制到相应的工作表中。

请注意，此代码假设要拆分的列是"A"列，并使用活动工作表作为源工作表。如果你的要求不同，请相应地调整代码。