如何能按照列的文字来切分表格

林小乖

大神们

怎么才能按  考点  那一列里面的文字，把这张excel表格切成分表

shiruiqiang

Sub 按考点拆分()
Dim arr
Dim d
Set d = CreateObject("scripting.dictionary")
    arr = Sheets(1).UsedRange
    Application.ScreenUpdating = False
    Sheets(1).Select
    For j = 2 To UBound(arr)
        If Len(arr(j, 10)) > 0 Then
            If d.exists(arr(j, 10)) Then
                Set d(arr(j, 10)) = Union(d(arr(j, 10)), Cells(j, 1))
            Else
                Set d(arr(j, 10)) = Union([a1], Cells(j, 1))
            End If
        End If
    Next j
    Sheets(1).Copy
    With ActiveWorkbook
        For Each k In d.keys
            .Sheets(1).UsedRange.Clear
            d(k).EntireRow.Copy .Sheets(1).[a1]
            .SaveAs ThisWorkbook.Path & "\" & k & ".xlsx"
        Next
        .Close False
    End With
    MsgBox "ok"
    Application.ScreenUpdating = True
End Sub

shiruiqiang

论坛内很多，或者wps拆分

林小乖

shiruiqiang 发表于 2024-10-10 10:31
论坛内很多，或者wps拆分

wps还有这么牛的功能？

shiruiqiang

ykcbf1100

总表拆分多表

附件供参考。。。

ykcbf1100

参与一下。。。

gwjkkkkk

请参考。。。

gwjkkkkk

参与一下。。。

今铭昔