请教怎么把一个excel文件按条件分割成多个文件
2024-07-18 广告
方法步骤如下:
1、首先打开计算机,在计算机内进入excel界面,在界面内按Alt+F11键进入VBE界面。
2、在界面内选择【插入】-【模块】插入一个模块。
3、双击模块名称,在右侧的空白处粘贴下列代码:Sub CFGZB()Dim myRange As VariantDim myArrayDim titleRange As RangeDim title As StringDim columnNum As IntegermyRange = Application.InputBox(prompt:="请选择标题行:", Type:=8)myArray =
WorksheetFunction.Transpose(myRange)Set titleRange = Application.InputBox(prompt:="请选择拆分的表头,必须是第一行,且为一个单元格,如:“姓名”", Type:=8) title = titleRange.ValuecolumnNum = titleRange.Column Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseDim i&, Myr&, Arr, num&。
4、返回Excel工作表界面,选择【开发工具】-【插入】-【表单控件】-【按钮】。
5、选择完插入按钮后会弹出指定宏的界面,选定刚才插入的“CFGZB”宏,并确定。
6、点击插入的按钮,根据提示选择标题行。
7、根据提示,选择要拆分的列标题,本例是“姓名”。
8、再次点击确定后,宏会自动运行。运行完毕后工作簿所在的同路径下会出现以每个人名命名的独立工作簿。打开每个单个工作簿就可以看到每个人自己的数据记录。