增加这个执行会报错Sheets("Sheet1").Select

laveq · 发表于 2022-11-5 19:15

本帖最后由 laveq 于 2022-11-5 19:34 编辑

是保存在xlam模块中的,
运行错误1004,,,

删除 Sheets("Sheet1").Select
可以正常执行.
移到xlsx模块中可以正常执行.

Sub 插入列()

Range("D3").Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Debug.Print "已插入一列空格."
End Sub

alex2008alex · 发表于 2022-11-5 20:18

sheets("sheet1").activate

高个子 · 发表于 2022-11-5 20:54

上传附件吧

taller · 发表于 2022-11-5 23:00

代码本身没有语法错误

ivccav · 发表于 2022-11-5 23:00

改为：Sheets("Sheet1").activate试试

laveq · 发表于 2022-11-28 16:40

感谢大家的回答,问题已经解决,
代码保存在红色方框位置会报错,
保存在绿色方框模块里就没问题了

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

[求助] 增加这个执行会报错Sheets("Sheet1").Select