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表格按A列拆分为多个文件VBA代码

  • 2016年02月06日 00:03
  • 2KB
  • 下载

excel按照固定行数拆分多个

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

使用VBA将一个EXCEL大表自动分成一系列小表(保留首行)

最近工作中需要将一个4万行的大EXCEL表格分成一系列小表格,每个小表格500行。如果手工操作,工作量巨大;根据之前写的将excel表格自动筛选为一系列表格的原理,这里进行了vba自动代码的编写,下面...
  • bestlanzi
  • bestlanzi
  • 2015年03月23日 07:41
  • 761

【VBA研究】版本无关的取EXCEL有效行列数方法

iamlaosong文 常用下面方式取得Excel工作表的有效行数,前者是2003版,后者是2007版: 1、MaxRow = sheets(1).[A65536].End(xlUp).Row ...
  • iamlaosong
  • iamlaosong
  • 2016年08月08日 14:47
  • 514

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

Sub 转换()     ChDir "d:\user\828604\桌面"         Dim sDir As String     Dim curdir As String        ...
  • heqiyu34
  • heqiyu34
  • 2016年07月06日 16:08
  • 1026

Excel中用VBA将根据列内容分割成多个工作表

Sub 工作表拆分2() '通过筛选方法完成需求,速度快,但当有合并单元格时就不能用。读者可以根据实际情况选用 Dim SplitCol As String, ColNum As Intege...
  • yu12345678900
  • yu12345678900
  • 2015年11月04日 11:54
  • 2373

EXCEL用VBA代码拆分sheet为新EXCEL文件

新文件用sheet名命名,sheet为当前sheet名 Sub Macro1() Dim sht As Worksheet Application.ScreenUpdating = Fals...
  • weihaoshuai2012
  • weihaoshuai2012
  • 2017年02月25日 22:32
  • 95

使用VBA编程自动以exce表中的指定列分离出工作表

写了一个VBA宏程序,用来自动将EXCEL一列转换为不同的工作表。例如: 姓名  性别 张三  男 李四  女 通过该程序可以自动分离出“男”工作表和“女”工作表。先上代码,注释写的很清楚。 '时间:...
  • bestlanzi
  • bestlanzi
  • 2015年02月06日 07:22
  • 872

C#将一个excel工作表根据指定范围拆分为多个excel文件

C#将一个excel工作表根据指定范围拆分为多个excel文件 微软Excel没有提供直接的方法来拆分excel文件,因此要拆分一个excel文件最简单的方法可能就是手动剪切和粘贴了,除此之外,还有其...
  • Eiceblue
  • Eiceblue
  • 2016年02月25日 10:17
  • 2153

DataTable按行分割

同一个数据库表的不同数据,要绑定不同的repeater,可以多次访问数据库,但那样效率会很低。       我想是先把整张数据库表放到DataTable中(表不是很大否则内存压力会很大),然后在内存...
  • kuangshi2008
  • kuangshi2008
  • 2011年12月31日 11:42
  • 872
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:excel按行数拆分
举报原因:
原因补充:

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