请问excel这种怎么弄

4375184

把上面的这个表，用什么代码可以变成3个excel文件。文件内容就是表1，2，3
注:不是变成3个sheet哦，是3个excel文件

非常感谢。

3190496160

就是一个拆分问题，拆分为多个独立工作簿，可以到我的主题里去下载灵活拆分工具，下载就能用

15643883

Sub chaifenshuju()
    '按要求列拆分数据
    Dim sht, sht0 As Worksheet
    Dim k, i, j As Integer
    Dim irow As Integer '这个说的是一共多少行
    Dim L As Integer
    Set sht0 = ActiveSheet
    L = InputBox("请输入你要按哪列分")
    '删除无意义的表
    Application.DisplayAlerts = False
    If Sheets.Count > 1 Then
        For Each sht In Sheets
            If sht.name <> sht0.name Then
                sht.Delete
            End If
        Next
    End If
    Application.DisplayAlerts = True
    irow = sht0.Range("a65536").End(xlUp).Row
    '拆分表
    For i = 2 To irow
        k = 0
        For Each sht In Sheets
            If sht.name = sht0.Cells(i, L) Then
                k = 1
            End If
        Next
        If k = 0 Then
            Sheets.Add After:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).name = sht0.Cells(i, L)
        End If
    Next
    '拷贝数据
    For j = 2 To Sheets.Count
        sht0.Range("a1:z" & irow).AutoFilter Field:=L, Criteria1:=Sheets(j).name
        sht0.Range("a1:z" & irow).Copy Sheets(j).Range("a1")
    Next
    sht0.Range("a1:z" & irow).AutoFilter
    sht0.Select
    MsgBox "已处理完毕"
End Sub

15643883

你变成表格再把表格另存为文件不就行了。。。

4375184

15643883 发表于 2021-11-19 09:33
你变成表格再把表格另存为文件不就行了。。。

目前就这么弄的，但班级很多

4375184

15643883 发表于 2021-11-19 09:32Sub chaifenshuju()
    '按要求列拆分数据
    Dim sht, sht0 As Worksheet

非常感谢，但是我测试了一下，选择了以A分列，然后就提示错误

xlgw521

下载一个插件：方方格子，安装后在菜单栏点：
方方格子>汇总拆分>拆分工作表或 拆分工作簿

4375184

xlgw521 发表于 2021-11-19 17:27
下载一个插件：方方格子，安装后在菜单栏点：
方方格子>汇总拆分>拆分工作表或 拆分工作簿

非常感谢,这个工具不错啊.