mdsk.net
当前位置:首页 >> ExCEló >>

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

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com