excel把一大堆名字分开的方法如下:亏核空
工具/原料:HP431、Windows10、Excel专业增强版2021。销瞎
1、选择分列工具
从菜单栏上选择【数据】、【分列】。
2、选择分列条件
在弹出对话框中,按步骤进行设置。
3、设置分氏圆列条件
根据单元格数据实际情况,设置分列条件。
4、效果预览
最终效果OK。
可以使用没迟盯Excel中的分列工具来实现,旦局具体操作可以参考枯和下方步骤。
1、演示使用的软件为Office Excel,使用的版本为Microsoft Office家庭和学生版2016。
2、首先打开Excel电子表格办公软件,然后输入两个用于演示的模拟姓名。
3、选中我们想要进行姓名分离操作的数据,在上方菜单中找到数据菜单,在数据菜单的工具栏中找到分列按钮。
4、点击分列后,在弹出的文本向导中,我们设置固定字符宽度分列,并设置宽度为第1个字后,然后直接点击完成,关闭该窗口。
5、窗口关闭后,我们可以看到表格中的姓名,已经被我们分成姓和名了。
如果您正在使用Microsoft Excel,并希望根据姓名列将一个工作表拆分成多个工作表,您可以通过以下步骤操作:
打开Excel工作簿,找到您想要拆分的工作表。
按下 Alt + F11 键,打开“Visual Basic for Applications”(VBA)编辑器。
在VBA编岩迹茄辑器中,单击菜单栏的 插入,然后选择 模块,在模块中粘贴以下代码:
vbaCopy codeSub SplitWorkbook()
Dim OriginalWs As Worksheet
Dim NewWorkbook As Workbook
Dim NewWs As Worksheet
Dim CurrentCell As Range
Dim ColumnToSplit As Range
Dim LastRow As Long
' 将下面的"A"更改为您要拆分的列州纳的字母粗察
Const COLUMN_TO_SPLIT_LETTER As String = "A"
Set OriginalWs = ActiveSheet
LastRow = OriginalWs.Cells(OriginalWs.Rows.Count, COLUMN_TO_SPLIT_LETTER).End(xlUp).Row
Set ColumnToSplit = OriginalWs.Range(COLUMN_TO_SPLIT_LETTER "2:" COLUMN_TO_SPLIT_LETTER LastRow)
Application.ScreenUpdating = False
For Each CurrentCell In ColumnToSplit
Set NewWorkbook = Workbooks.Add
Set NewWs = NewWorkbook.Worksheets(1)
OriginalWs.Rows(1).EntireRow.Copy NewWs.Rows(1)
CurrentCell.EntireRow.Copy NewWs.Rows(2)
NewWorkbook.SaveAs "拆分工作簿_" CurrentCell.Value ".xlsx"
NewWorkbook.Close SaveChanges:=False
Next CurrentCell
Application.ScreenUpdating = True
MsgBox "工作表拆分完成。"
End Sub
确保您已经选中要拆分的工作表,然后在VBA编辑器中按下 F5 键运行代码。
代码将根据姓名列中的每个名字创建一个新的Excel文件,并将对应的行复制到新工作簿中。这些新文件将保存在您Excel工作簿所在的同一文件夹中,并以 "拆分工作簿_姓名.xlsx" 的格式命名。
注意:此方法将创建大量新的Excel文件。在运行代码之前,请确保您的电脑有足够的存储空间,并在运行代码之前保存并备份您的原始工作簿。
本文转载自互联网,如有侵权,联系删除