Sub test()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set s1 = Sheets("会员列表")
maxR = s1.[A1].End(xlDown).Row
For i = 2 To maxR Step 101
Set wb = Workbooks.Add
Set ws = wb.Sheets(1)
s1.Rows(1).Copy ws.Rows(1)
s1.Rows(i & ":" & i + 100).Copy ws.Cells(2, 1)
wb.SaveAs ThisWorkbook.Path & "/" & i & "-" & i + 100
wb.Close False
Next
End Sub
现在命名出来的文件是以序号的，
想改成A列对应的名称，比如：35001-35013 ，对应A2-A14的名称
求助下大神，谢谢