工作表按某列标识分别截成多个EXCEL sheet
2015-04-07 21:21
197 查看
将下面的方法放于VBA中执行即可
注:需要有工作表Name为Sheet1,
使用的对象参考:http://zhucongg.blog.163.com/blog/static/1148148320153742843347/
Sub s()
Application.ScreenUpdating = False
Dim sh As Worksheet, i As Integer
For i = 2 To Sheet1.[a65536].End(3).Row
If Sheet1.Cells(i, 1) <> Sheet1.Cells(i - 1, 1) Then
Worksheets.Add after:=Worksheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = Sheet1.Cells(i, 1)
sh.Range("a1").Resize(1, 3).Value = Sheet1.Range("a1").Resize(1, 3).Value
sh.Range("a65536").End(3).Offset(1, 0).Resize(1, 3).Value = Sheet1.Cells(i, 1).Resize(1, 3).Value
Else
sh.Range("a65536").End(3).Offset(1, 0).Resize(1, 3).Value = Sheet1.Cells(i, 1).Resize(1, 3).Value
End If
Next i
Application.ScreenUpdating = True
End Sub
注:需要有工作表Name为Sheet1,
使用的对象参考:http://zhucongg.blog.163.com/blog/static/1148148320153742843347/
Sub s()
Application.ScreenUpdating = False
Dim sh As Worksheet, i As Integer
For i = 2 To Sheet1.[a65536].End(3).Row
If Sheet1.Cells(i, 1) <> Sheet1.Cells(i - 1, 1) Then
Worksheets.Add after:=Worksheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = Sheet1.Cells(i, 1)
sh.Range("a1").Resize(1, 3).Value = Sheet1.Range("a1").Resize(1, 3).Value
sh.Range("a65536").End(3).Offset(1, 0).Resize(1, 3).Value = Sheet1.Cells(i, 1).Resize(1, 3).Value
Else
sh.Range("a65536").End(3).Offset(1, 0).Resize(1, 3).Value = Sheet1.Cells(i, 1).Resize(1, 3).Value
End If
Next i
Application.ScreenUpdating = True
End Sub
相关文章推荐
- 怎样关联多个 Excel 档工作表(Sheet)中的数据
- (JXL)JAVA读取Excel数据(包含多个Sheet)
- POI在同一个Excel文件中创建多个sheet页并分别命名
- PHP生成EXCEL,支持多个SHEET
- php 下载excel文件,单独设置工作表(sheet1,sheet2,sheet3....)
- phpexcel 读取含多个sheet的excel,将从数据库中检索出的数据分别写入该excel不同的sheet中 并导出该excel
- NPOI导出EXCEL数据量大,分多个sheet显示数据
- excel文件里有多个sheet,把每个sheet全部导出为单独的xls或xlsx
- Excel多个工作表(Sheet)合并
- devexpress导出数据到excel,数据源为多个xtrareport时,多个sheet导出
- python实现跨excel的工作表sheet之间的复制方法
- Asp.net 将DataGrid分多个Sheet导出Excel
- 多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里
- excel中将一张表中数据拆分成多个工作表,按部门不相同的拆分成单个工作表,且单个工作表名及为部门
- Excel合并多个工作表(Sheet)到一个Sheet中脚本
- DataSet导入到Excel里,多个DataTable分成多个Sheet,Sheet以TableName命名
- c#.net对excel的操作——创建一个excel报表两个sheet就是2个表分别添加内容
- excel将一个工作表根据条件拆分成多个工作表图文教程
- 把Excel中多个sheet分别另存为单独的文件
- excel多个工作表求和案例