excel按行数拆分
来源:互联网 发布:iphone越狱软件 编辑:程序博客网 时间:2024/05/09 05:46
Excel按行数拆分
Sub cfb()
Dim r, c, i, WJhangshu, WJshu, bt As Long
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
bt = 1 '标题行数
WJhangshu = 20000 '每个文件的行数
WJshu = IIf(r - bt Mod 20000, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1)
For i = 1 To WJshu
Workbooks.Add
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx"
Application.DisplayAlerts = True
ThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1")
ThisWorkbook.ActiveSheet.Range("A" & bt + i * WJhangshu + 1).Resize(WJhangshu, c).Copy _
ActiveSheet.Range("A" & bt + 1)
ActiveWorkbook.Close True
Next
End Sub
- excel按行数拆分
- csv批量转xls | excel按行数拆分
- excel按照固定行数拆分多个
- excel拆分
- Excel动画教程:拆分窗口
- EXCEL拆分窗口
- excel数据拆分(符号)
- excel 空格 拆分 单元格
- vba拆分excel表格
- Excel 2010 拆分窗口
- VBA Excel 列拆分
- excel csv 快速拆分
- Excel区间数据拆分
- VBA代码拆分excel
- Excel的最大行数
- Excel的最大行数
- 根据指定行数拆分内表
- excel中用宏拆分字符串
- Ubuntu配置tomcat开机自动启动
- coreseek ubantu 安装
- mysql存储过程详解以及PHP调用MYSQL存储过程实例
- java之JFrame流式布局
- LinuxC/C++编程(8)—共享内存通信
- excel按行数拆分
- 深入Android MediaPlayer的使用方法详解
- Middle-题目47:80. Remove Duplicates from Sorted Array II
- C语言练习篇-1Hello, World!
- 百度定位到城市
- 产生随机字母组成字符串
- 使用TabLayout、ViewPager和Fragment实现顶部菜单可滑动切换
- SSM之WEB整合SpringMVC
- curl php