~ 上傳‧分享‧網賺 ~
~ 免費上傳空間‧請即申請 Freak Share ~
~ 進入後請點選左上角 注冊 ! ~
~ 声明事项 ~
如各位想把以下本文章转贴 , 请记得要注明出处.
本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.
由于图片制作需时, 所以更新会比较慢.
存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.
什么都不说 ~ 直接看程序代码 ~
==================
Rows("A1").Select
Selection.Insert Shift:=xlToRight
Rows("A1").Select
Selection.Insert Shift:=xlDown
==================
搞定 ~
什么 !? 还不懂 ? 怎么会啦 ~ 很简单的嘛 ~ 一个是储存格右移 , 另外一个是储存格下移 ~ 行了 ~ 呵呵呵呵 ~
==================
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
==================
同样地 , 这个是增加行或列的方法 .
( 对 ~ 这个贴很明显是为骗显示量而发的 ~ 哈哈哈哈 ~ 闪 ~~~~ )
0 留言:
發佈留言