返回目录:excel表格制作
方法步骤如下:
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:="请选择拆分的表头,必须是第一行,且为一个单元格,如:“姓e799bee5baa6e79fa5e98193e59b9ee7ad94361名”", Type:=8) title = titleRange.ValuecolumnNum = titleRange.Column Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseDim i&, Myr&, Arr, num&。
4、返回Excel工作表界面,选择【开发工具】-【插入】-【表单控件】-【按钮】。
5、选择完插入按钮后会弹出指定宏的界面,选定刚才插入的“CFGZB”宏,并确定。
6、点击插入的按钮,根据提示选择标题行。
7、根据提示,选择要拆分的列标题,本例是“姓名”。
8、再次点击确定后,宏会自动运行。运行完毕后工作簿所在的同路径下会出现以每个人名命名的独立工作簿。打开每个单个工作簿就可以看到每个人自己的数据记录。
1、如果是一个工作表内的内容太多了,你可以用复制粘贴抄的方法来把它们放入到几袭个工作表中。(想要快一点的话:这一项还可以用数据透视的方法根据需要分开来存。)
2、如果是一个工作簿中的百工作表太多了,你可以度先选中工作表名——右键——移动或复制工作表——在“工作知薄”的下拉菜单中选择“新工作薄”——确定——在新的工作薄中把它进行保存就行。
如果你想要最快的方法,那就像1楼所说的用VBA最快,最方便!道