请教shapes可以像range一样一行代码进行复制粘贴操作吗？

WilsonJ · 发表于 2023-6-27 12:29

我用Sheets("Sheet1").Range("A1:K3").Copy Sheets("Sheet2").Range("A1:K3")可以正常操作，
但操作Sheets("sheet1").Shapes(1).Copy Sheets("Sheet2").Range("A4")的时候就出错，是什么原因呀，shapes不支持吗？
代码改成下面的又可以正常运行。
Sheets("Sheet1").Shapes(1).Copy Range("A1")
Range("A1").Select
ActiveSheet.Paste

Yalishanda30 · 发表于 2023-6-27 14:17

本帖最后由 Yalishanda30 于 2023-6-27 14:40 编辑

供参考。。。。。。

smiletwo · 发表于 2023-6-27 14:25

本帖最后由 smiletwo 于 2023-6-27 14:27 编辑

这种操作性的动作，直接录制宏看看

自创有风险

WilsonJ · 发表于 2023-6-30 09:06

Yalishanda30 发表于 2023-6-27 14:17
供参考。。。。。。

感谢，主要是表格内的Shapes较多，用引用Shapes序号的方式会好点，但不知道什么原因循环复制粘贴后的Shapes总是会无规律缺一些，同样的代码逐步运行就会好点，后面我改用筛选复制粘贴的方式处理了，循环好像必须要工作表之间来回选择，效率反而更慢了。

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

[求助] 请教shapes可以像range一样一行代码进行复制粘贴操作吗？

评分