带翅膀老虎 发表于 2017-5-10 07:26 不行,我是要编写一个程序,只是引用的时候总出错,不是简单的复制粘Sub Macro1() Dim arr, aa aa = Ra ...
使用道具 举报
327718098 发表于 2017-5-9 23:19 直接整个选择起来复制粘贴不就完了 sub text() sheets("表1").usedrange.copy sheets("表2").[a1]
327718098 发表于 2017-5-10 07:33 arr = ActiveWorkbook.Sheets(1).Range("A1:z" & aa)要这样
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )
GMT+8, 2024-3-29 20:07 , Processed in 4.941207 second(s), 9 queries , Gzip On, Yac On.
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.