excel按行数拆分

转载 2016年05月31日 16:07:01

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按照固定行数拆分多个

1 背景:    工作需要,需要把Excel按照固定行数拆分。 解决办法:   1. 生成是提前处理:    简单来说就是按照行数生成多个Excel。 大概逻辑如下:    if(list.size ...
  • bohu83
  • bohu83
  • 2017年07月28日 18:22
  • 501

csv批量转xls | excel按行数拆分

Sub 转换()     ChDir "d:\user\828604\桌面"         Dim sDir As String     Dim curdir As String        ...

excel大数据拆分

  • 2016年01月11日 17:47
  • 54KB
  • 下载

确定一个Excel表格的最大行数和最大列数

怎么确定一个Excel表格的最大行数和最大列数?基于第一个问题,如果中间有跨行列的单元格,那么就有空值,不能简单通过循环确定最大行列数。          Dim   xlWorkSheet ...

VBA 合并与拆分 Excel 文件

  • 2017年09月21日 22:10
  • 31KB
  • 下载

Excel合并拆分助手.rar

  • 2015年10月09日 16:18
  • 2.46MB
  • 下载

VBA取得EXCEL表格中的行数和列数

VBA取得EXCEL表格中的行数和列数       初学EXCEL宏的童鞋,总是很想知道表格中含有数据的行数和列数,尤其是行数和列数不确定的情况下。这样可以避免很多的错误,并且可以提高效率。但每...
  • xcntime
  • xcntime
  • 2017年06月05日 18:11
  • 266

EXCEL拆分单元格程序

  • 2014年02月24日 22:53
  • 17KB
  • 下载

VBA拆分excel

  • 2015年08月06日 14:02
  • 2KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:excel按行数拆分
举报原因:
原因补充:

(最多只允许输入30个字)