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

林小乖 · 发表于 2024-10-10 10:03

大神们

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

shiruiqiang · 发表于 2024-10-10 10:27

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 · 发表于 2024-10-10 10:31

论坛内很多，或者wps拆分

林小乖 · 发表于 2024-10-10 10:40

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

wps还有这么牛的功能？

shiruiqiang · 发表于 2024-10-10 10:43

ykcbf1100 · 发表于 2024-10-10 12:58

本帖最后由 ykcbf1100 于 2024-10-10 13:00 编辑

总表拆分多表

附件供参考。。。

ykcbf1100 · 发表于 2024-10-10 12:59

参与一下。。。

gwjkkkkk · 发表于 2024-10-10 21:02

请参考。。。

gwjkkkkk · 发表于 2024-10-10 21:03

参与一下。。。

今铭昔 · 发表于 2024-10-11 07:18

		自动登录	找回密码
密码			免费注册

[求助] 如何能按照列的文字来切分表格

评分

评分