一、原始数据表如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分成每个组织一个工作表。
二、进入VBE编辑页面
通过【开发工具】>>【查看代码】进入编辑页面通过【右击】sheet页名称,选择【查看代码】进入编辑页面通过ALT+F11进入编辑页
三、插入一个新的模块。
四、在模块1窗口粘入如下代码 ,并保存Sub CFGZB() Dim myRange As Variant Dim myArray Dim titleRange As Range Dim title As Variant Dim columnNum As Integer myRange = Application.InputBox(prompt:="请选择标题行:", Type:=8) myArray = WorksheetFunction.Transpose(myRange) Set titleRange = Application.InputBox(prompt:="请选择拆分的表头,必须是第一行,且为一个单元格,如:“组织”", Type:=8) title = titleRange.Value columnNum = titleRange.Column Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i&, Myr&, Arr, num& Dim d, k For i = Sheets.Count To 1 Step -1 If Sheets(i).Name