excel中怎么样按某一列的数据自动分成几张表格
发布网友
发布时间：2022-04-21 22:40
共2个回答
热心网友
时间：2023-05-30 11:14
按照某一列的数据自动分成表格的方法如下（以windows10系统的excel2019版为例）：
1、打开excel表格，随后选中需要拆分的列。
2、随后点击界面上方的数据按钮。
3、在随后打开的界面中点击分列按钮。
4、接着点击分隔符号按钮，随后点击下一步。
5、在随后自动弹出的界面中选中空格键。
6、点击下一步，即可看到数据已经按选中的列分成几个表格了。
热心网友
时间：2023-05-30 11:15
下面这段代码，将按照代码所在表D列数据进行拆分，D列相同的放到一个工作簿中，工作簿名称为该单元格值。
Sub 拆分() 'D列相同的保存到一个工作簿
Dim I As Long, J As Long, S As String
Dim Str As String, xlbook As Workbook
Dim N As Long, R As Long, M As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For I = 1 To Range("D65536").End(xlUp).Row
Str = Range("D" & I).Text
If InStr(S, Str) = 0 And Str <> "" Then
S = S & Str & " "
N = N + 1
Workbooks.Add xlWBATWorksheet
Rows(I).Copy ActiveSheet.Rows(N)
R = Range("D:D").Find(Range("D" & I)).Row
M = R
Do
R = Range("D:D").FindNext(Range("D" & R)).Row
If R = M Then Exit Do
N = N + 1
Rows(R).Copy ActiveSheet.Rows(N)
Loop
ActiveWorkbook.SaveAs "D:\" & Str & ".XLS" '保存
ActiveWorkbook.Close
N = 0
Str = ""
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "完成！"
End Sub
