表格增加删除行报错

wang_jg · 发表于 2022-12-22 13:42

本帖最后由 wang_jg 于 2022-12-24 14:53 编辑

问题已解决。。。。。

wang_jg · 发表于 2022-12-22 13:44

这段VBA代码为什么不执行，报错：运行时错误1004，应用程序定义或对象定义错误。程序自动退出了

wang_jg · 发表于 2022-12-22 13:47

本帖最后由 wang_jg 于 2022-12-24 14:53 编辑

表格未选中。。。

wang_jg · 发表于 2022-12-22 13:59

A表向B表输出数据，B表根据A表的数据行增加或者删除B表现有的行数

liulang0808 · 发表于 2022-12-22 17:17

wang_jg 发表于 2022-12-22 13:59
A表向B表输出数据，B表根据A表的数据行增加或者删除B表现有的行数

sheet.Rows(6).Select
sheet需要处于active状态，才可以，不知道是否是这个问题

wang_jg · 发表于 2022-12-22 18:29

liulang0808 发表于 2022-12-22 17:17
sheet.Rows(6).Select
sheet需要处于active状态，才可以，不知道是否是这个问题

不是这个问题
程序运行到这里报错自动退出了

liulang0808 · 发表于 2022-12-22 20:31

wang_jg 发表于 2022-12-22 18:29
不是这个问题
程序运行到这里报错自动退出了

运行到哪里退出？
方便的话，就上传下模拟文档说明下

wang_jg · 发表于 2022-12-23 13:01

liulang0808 发表于 2022-12-22 20:31
运行到哪里退出？
方便的话，就上传下模拟文档说明下

表格已经上传，将A表的数据输出到B表，B表根据A表数据增加或者删减行

wang_jg · 发表于 2022-12-23 13:02

wang_jg 发表于 2022-12-23 13:01
表格已经上传，将A表的数据输出到B表，B表根据A表数据增加或者删减行

For i = 1 To Abs(n)
If k > 0 Then
Selection.Delete Shift:=xlUp
Else
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next i
这里程序不执行，弹出出错窗口，下面的代码不执行，退出。

wang_jg · 发表于 2022-12-23 13:05

wang_jg 发表于 2022-12-23 13:01
表格已经上传，将A表的数据输出到B表，B表根据A表数据增加或者删减行

c d的数据（在E行F行）也跟着一起调整，不因为行数的增加或者删减发生变化，不要错行

		自动登录	找回密码
密码			免费注册

[求助] 表格增加删除行报错