拆分工作表为工作薄需要用宏来处理
Excel 内 按 Alt+F11 视图--代码窗口,
把如下复制进去 按F5运行即可
请这个Excel 放到一个文件夹内操作, 默认生成到当前文件夹
Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count
For i = 1 To b
Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xlsx"
.Close
End With
Next i
Application.ScreenUpdating = true
End Sub
效果如下例:
嘿嘿,这个我知道。
1、首先选定一行
2、点击工具栏中的数据-----筛选-----自动帅选
3、点击选定的那行,依次选择您要依据此来帅选的相关信息
4、再将生成的那张表复制到另外的表中就可以了
5、最后别忘了恢复哦
觉得我的建议好别忘了把我选择为最佳答案哦,嘿嘿我在辛苦地挣财富值,哎,为了下载东西
我也想知道
不知道!!!!!!!!!!!!!