[已解决]如何将Sheet1表按469行一表拆分为多个表，谢谢！

bipl607

Sheet1表中有N个数据，能否做一个宏拆分此表，按第1-469行一表，第470-938一表，939-1407一表，。。。这样拆分呢？谢谢！

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-6-29 11:03

运行下面的代码就可以了
Sub 拆分()
Dim sh As Worksheet, sh1 As Worksheet
Set sh = Sheets("sheet1")
For x = 1 To sh.Range("a65536").End(xlUp).Row Step 469
  Sheets.Add after:=Sheets(Sheets.Count)
  Set sh1 = ActiveSheet
  sh1.Cells(1, 1).Resize(469) = sh.Cells(x, 1).Resize(469).Value
Next x
End Sub

跳转到最佳答案楼层

妞叫七七

运行下面的代码就可以了
Sub 拆分()
Dim sh As Worksheet, sh1 As Worksheet
Set sh = Sheets("sheet1")
For x = 1 To sh.Range("a65536").End(xlUp).Row Step 469
  Sheets.Add after:=Sheets(Sheets.Count)
  Set sh1 = ActiveSheet
  sh1.Cells(1, 1).Resize(469) = sh.Cells(x, 1).Resize(469).Value
Next x
End Sub

bipl607

谢谢楼上的朋友，问题解决了，最佳答案。