Novell迷

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

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

下面直接附上解决办法，采用的是VBA宏，希望对你有所帮助！

CopyRight http://novell.me

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

本文来自Novell迷网站 http://novell.me