Sub Macro1()
‘
‘ Macro1 Macro
‘ 宏由 gdzhang 录制,时间: 2007-8-29
‘
‘隔行插入宏1
Dim ttt As Integer
For R = 2 To 12 Step 2
Rows(R).Insert Shift:=xlDown
Range(”B” & (R - 1)).Select
Selection.Copy
Range(”A” & R).Select
ActiveSheet.Paste
Next
End Sub
Sub Macro2()
‘
‘ Macro2 Macro
‘ 宏由 gdzhang 录制,时间: 2007-8-29
‘
‘隔行删除
Dim ttt As Integer
For R = 2 To 7 Step 1
Rows(R).Delete Shift:=xlUp
Next
End Sub
Sub Macro3()
‘
‘ Macro3 Macro
‘ 宏由 gdzhang 录制,时间: 2007-8-29
‘
‘隔行插入宏2
For R = 2 To [...]
-
页面
-
友情链接1
友情链接2
分类目录
-
最近评论
- Nensy 在 rhel4基于带用于GDM的XDMCP的xinetd来启动vnc 上的评论
- cloverroad 在 禁ie代理设置 上的评论
- asd 在 在线代理 上的评论
- zerged 在 恢复安装被破坏的grub 上的评论
- suifeng 在 恢复安装被破坏的grub 上的评论
-
最近文章
文章
- 2008年十二月 (9)
- 2008年十一月 (26)
- 2008年十月 (26)
- 2008年九月 (8)
- 2008年八月 (10)
- 2008年七月 (12)
- 2008年六月 (2)
- 2008年五月 (11)
- 2008年四月 (9)
- 2008年三月 (13)
- 2008年二月 (34)
- 2008年一月 (46)
- 2007年十二月 (29)
- 2007年十一月 (26)
- 2007年十月 (21)
- 2007年九月 (33)
- 2007年八月 (17)
- 2007年七月 (44)
- 2007年六月 (37)
- 2007年五月 (3)
- 2007年四月 (2)
- 2007年三月 (3)
- 2007年二月 (7)
- 2007年一月 (4)
-
Meta