1、ALT+F11
2、插入模块
3、粘贴以下代码到模块中
Sub 拆分()
Dim i As Long
Dim na As String
Application.ScreenUpdating = False
For i = 2 To Sheets("sheet1").Range("b65536").End(xlUp).Row
na = Sheets("sheet1").Cells(i, 2).Value
Sheets("sheet1").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path &"\" &na &".xls"
Rows(i).Copy Rows("2")
Rows("3:" &Range("b65536").End(xlUp).Row).Delete
ActiveWindow.Close savechanges:=True
Next
Application.ScreenUpdating = True
End Sub
4、运行宏“拆分”
您好,可以使用addSpan和removeSpan来实现合并与拆分单元格,具体用法,可以参考葡萄城官方学习指南,以及葡萄城官方论坛GCDN中学习交流,
官方论坛有大量的实例,也有兢兢业业的客服会及时回复您的提问~!