vba按指定列拆分工作表

你可以使用VBA编写一个宏来按指定列拆分工作表。以下是一个简单的示例代码，可以将工作表按“A”列中的值拆分为多个工作表：

Sub SplitByColumn()
    Dim lastRow As Long, i As Long
    Dim currentName As String, newName As String
    Dim ws As Worksheet, newWs As Worksheet
    
    '获取最后一行
    lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
    '循环遍历每一行
    For i = 1 To lastRow
        currentName = ActiveSheet.Cells(i, "A").Value
        
        '如果该名称的工作表不存在，则创建一个新的工作表
        On Error Resume Next
        Set newWs = Worksheets(currentName)
        On Error GoTo 0
        If newWs Is Nothing Then
            Set newWs = Worksheets.Add(After:=Worksheets(Worksheets.Count))
            newWs.Name = currentName
        End If
        
        '将该行复制到新工作表
        ActiveSheet.Rows(i).Copy Destination:=newWs.Rows(newWs.Cells(Rows.Count, "A").End(xlUp).Row + 1)
    Next i
End Sub

在此示例中，我们使用“lastRow”变量获取最后一行，然后遍历每一行。我们使用“currentName”变量获取当前行中“A”列的值，然后检查该名称的工作表是否已经存在。如果不存在，则创建一个新的工作表，并将该行复制到该工作表中。最后，我们将新工作表命名为当前行中“A”列的值。