Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何复制 , 移动 , 删除工作页

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 声明事项 ~

如各位想把以下本文章转贴 , 请记得要注明出处.

本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.

由于图片制作需时, 所以更新会比较慢.

存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.

首先 , 我相信你应该清楚明白 , 把一个工作页中的数据复制后 , 再利用 VBA 对数据进行处理 , 对你的数据更加有保障 , 对吧 ~

但是 , 我们在设计程序时 , 不可能先用人手复制需要的工作页再执行 VBA 程序那么笨吧 ~ 对不对 , 所以 , 复制工作页这个沉闷的动作 , 交给计算机来做实在是再合理不过了 ~

你记得复制的英文是什么吗 ?

就是 COPY 嘛 ~ 简简单单的一个英文字 , 就可以做到我们想要的东西了 ~

==================

Worksheets("Sheet2").Copy after:=Worksheets("Sheet3")

==================

上面的这句程序代码 , 意思是把工作页 Sheet2 复制 , 然后把复制出来的工作面放到工作页 Sheet3 后面 . 当然 , 有正必有反 , 所以 AFTER 当然就有 BEFORE 了 ~ 呵呵呵呵

如果把 AFTER 变成 BEFORE 的话 , 那么 , 执行的结果嘛 ~ 自己看看吧 ~ 呵呵 ~ 不作详细解释了 ~

可能你又会问了 , 我并不是想把一页面复制到另一个页面的前面或者后面哦 ~ 我要把复制出来的放到一个新的档里 , 那我要怎样办 ?

这个可简单了 ~ 只要把那个 BEFORE 或者是 AFTER 之后的所有都删掉 , 使程序代码变成 :

==================

Worksheets("Sheet2").Copy

==================

这样就 OK 了 ~ 哈哈 ~ 很简单吧 ~

好 ~ 原理都明白了吗 ? 那么移动工作页要怎么办呢 ?

只要把 COPY 改成 MOVE 就可以了 , 也是一样 , 都是 BEFORE 或者 AFTER , 或者是什么都没有 .

那删除呢 ? 也是一样的吧 ~

错了啦 ~ 呵呵呵呵 ~

当然 , 原理还是差不多 , 但是就没有了那些 BEFORE 或者 AFTER , 程序代码如下 :

==================

Worksheets("Sheet2").Delete

==================

但是 , 当你进行删除页面这个动作时 , 计算机会问你是不是确定要这样做的 , 如果你复制出来的工作页任务已经完成 , 那里删掉就是唯一剩下来还未做的动作了吧 ~ 所以 , 计算机问你的那个问题 “ 是不是确定要删除 ” 就变成多余了 , 对吧 ~ 要解决这个问题嘛 , 请参考 “ Excel VBA 实用技巧 – 如何关闭提示警告讯息对话框 ”