本文章只是对excel表格做一个简单的划分！！！

比如你有一个很多数据的表格，你现在想把他们按照每n行划分开 现在让我们先进入excel表格中，接下来请跟着我的步骤来 假设你想对这个sheet1表格中的数据做划分。现在将鼠标移到sheet1上，点击右键，点击 查看代码 ，这时你会看到弹出来一个窗口，如图 由于该窗口默认的代码很小，我们需要调大默认的代码字体，如图 点击工具，点击选项 大小你自己随意 接下来可以正式开始代码了

Sub “这儿你写上自己定义的函数名”() # 定义函数 Dim i As Integer # 定义整型变量i For i = 1 To “填上你想划分的个数” Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "你想要划分出来的表的名字" & i # 增加一个新的工作表，用于将复制的内容粘贴进去 Sheets("sheet1").Activate # 注意这个是激活sheet1表 ActiveSheet.Range(Cells((i - 1) * 2000 + 1, 1), Cells(i * 2000, 13)).Copy Sheets("你想要划分出来的表的名字" & i).Activate # 选择需要复制的范围以及要复制到那里去 ActiveSheet.Paste # 粘贴，也就是将复制的内容粘贴到当前活动表的活动单元格开始区域 Next # 进行下一个活动 End Sub

好了 开始执行吧 你会有你想要的结果。 在了解一个小东西 range(cells(1,1),cells(1,2))表示的是A1:B1（相当于是一个矩形的两个对角线端点） 比如range(cells(1,1),cells(3,3))表示的及时A1:C3,代表的就是 这一块的内容 另外附上vab代码的一些内容 VAB常用代码 WorkSheet属性和方法

上面的内容但凡又有编程经验的应该一看就懂了，那么没有编程经验的该怎么办呢？？？别怕

你只需要清楚你现在需要划分成几个表，以及你希望划分出来的表的名字，比如 你现在有9900行，13列数据，你希望每2000行划分一次，那么毫无疑问你得划分5个表，同时你划分成新的表的名字为 “分解” 那么下面的代码就是了

Sub Macro1() Dim i As Integer For i = 1 To 5 Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "分解" & i Sheets("sheet1").Activate ActiveSheet.Range(Cells((i - 1) * 2000 + 1, 1), Cells(i * 2000, 13)).Copy Sheets("分解" & i).Activate ActiveSheet.Paste Next End Sub

同样如果你想划分成 4个表，你的表有4列数据 ，新的名字为"LL",那么你可以用下面的代码 Sub Macro1() Dim i As Integer For i = 1 To 4 Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = “LL” & i Sheets(“sheet1”).Activate ActiveSheet.Range(Cells((i - 1) * 2000 + 1, 1), Cells(i * 2000, 4 )).Copy Sheets(“LL” & i).Activate ActiveSheet.Paste Next End Sub

注意对比我改了哪些地方 第3，4，6’行 ，而且只是变了一点点

好了 今天的分享就是这些了。。。