返回首页
当前位置: Novell迷 > 站长博客 >

将EXCEL工作簿按行分成N个工作簿

时间:2016-11-07 08:29来源:未知 作者:Novell迷 点击:
如何将EXCEL工作簿按行分成N个工作簿

比如一个工作簿中有100个人的用户名密码信息,能否将这100行自动分割成100个工作簿?

可以这样实现吗? 分成100个工作表就发现可以用第三方软件实现。那么这种一行存成一个文件的方式是否有办法呢?

下面直接附上解决办法,采用的是VBA宏,希望对你有所帮助! 版权所有,未经Novell迷允许,不得转载!

  1. Option Explicit 
  2.  
  3. Sub 每行拆分成工作簿() 
  4. Dim wb, i, j 
  5. Application.ScreenUpdating = False 
  6. For j = 2 To [a65536].End(xlUp).Row 
  7.     Union(Rows(1), Rows(j)).Copy 
  8.     Set wb = Workbooks.Add 
  9.     wb.Sheets(1).Paste 
  10.     On Error Resume Next 
  11.     Kill ThisWorkbook.Path & "\" & wb.Sheets(1).Range("A2") & ".xlsx" 
  12.     wb.SaveAs ThisWorkbook.Path & "\" & wb.Sheets(1).Range("A2") & ".xlsx" 
  13.     wb.Close 
  14.     Set wb = Nothing 
  15. Next 
  16. Application.ScreenUpdating = True 
  17. End Sub 
本文引用自http://novell.me

 

本文引用自http://novell.me

转载请注明出处!
本文地址 http://novell.me/master-diary/2016-11-07/split-excel-by-line.html
(责任编辑:Novell迷)
对我有帮助
(0)
0%
没什么帮助
(0)
0%
------分隔线----------------------------
发表评论
验证码:点击我更换图片
赞助商链接