在前面加上一句: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