ExCEló

在前面加上一句：On Error Resume Next，修改后的代码如下： Sub 拆分工作表()

应用程序错误解决方法： 1.检查电脑是否存在病毒，请使用百度卫士进行木马查杀。 2.系统文件损坏或丢

楼主一定是初次接触VBA。 If Cells(row1, "A") = 日期1

Sub 合并()Dim j, x&Application.ScreenUpdating =

这一句有问题： Set Rng = Sheets(3).Range(Cells(1 + i, 1)

已经存在了一个名字是：工具栏1 的Toolbar，再次添加就会造成冲突了。 在Toolbars

xrow = sht.Range("a1").CurrentRegion.Row

从抛出异常来看Sheet没有正常被定义到，请确认你的sheet名是否正确，断点打到sheet名获取哪

For i = 1 To Range("Sheet1").Columns.Cou

Private Sub Worksheet_Change(ByVal Target As Range