楼主一定是初次接触VBA。 If Cells(row1, "A") = 日期1.Value Then 【row1】是什么，变量？请为他赋值，如果指的是第一行，请用Cells(1,1); 日期1又是什么？猜测是文本框，那最好用【Me.日期1】来说明清楚； 【111.Value】肯定不合法，因为【111...
应用程序错误解决方法： 1.检查电脑是否存在病毒，请使用百度卫士进行木马查杀。 2.系统文件损坏或丢失，盗版系统或Ghost版本系统，很容易出现该问题。建议：使用完整版或正版系统。 3.安装的软件与系统或其它软件发生冲突，找到发生冲突的软件...
从抛出异常来看Sheet没有正常被定义到，请确认你的sheet名是否正确，断点打到sheet名获取哪里，看是否能正确获得！
这一句有问题： Set Rng = Sheets(3).Range(Cells(1 + i, 1), Cells(3 + i, 4)) 在你的语句里，Range()的母对象是Sheets(3)，而Cells()的母对象是当前活动工作表，当Sheets(3)不是活动表里，Cells()和Range()的母对象交叉混乱了，在VBA里是非法...
可以如下方式解决： 1、当按F5键，就报：运行时错误1004。可以这样操作，单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾寻信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。 2、再在搜索引擎查询，才知道...
For i = 1 To Range("Sheet1").Columns.Count 应该改为如下语句吗？ For i = 1 To sheets("Sheet1").Columns.Count 如果是，同样需要更改如下语句 For j = 1 To Range("Sheet1").Rows.Count
将Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1) 修改成： Wb.Sheets(G).UsedRange.Copy Windows("数据合并.xlsm").Activate Cells(Range("A65536").End(xlUp).Row + 1, 1).Select ActiveSheet.Paste 即可。
xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1 如果某个工作表里仅有一行数据，或者没有数据，这儿 xrow=0 然后，下面的 .resize(xrow,13) 就会出错 把上面的-1去掉，应该就可以了。
Target.Offset(0, -2)表示鼠标点击位置的左边第二列，当点A、B列的时候就会报错，因为他们的左边出界了。 尽管前面有Column=10的并且条件，但是VBA不进行布尔短路，因此其他列点鼠标的时候任然会去查看左边第二列。 解决的办法是使用嵌套的If判...
软件版本：Office2007 方法如下： 在VBA中如果使用了系统不认可的对象表示方法等，例如下面的Range表示方法，系统就不认可： 这样，在运行程序时，就会提示错误： 将代码中的错误更正，用正确的表示方法来使用对象或应用程序，就不会出错了：