如何利用宏做工资条

bajiaolongjing · 发表于 2014-5-18 14:07

原代码是：

Sub 工资条()

For i = 3 To 48 Step 3

Range("A1:G2").Copy

Rows(i).Select

Selection.Insert Shift:=xlDown

Application.CutCopyMode = False

把A1:G2改成A1:S2就执行不了说被禁止

哪位高手能帮忙把正确代码贴给我？谢谢！
工资表放附件了

工资条.rar (8.39 KB, 下载次数: 252)

一剑惊心 · 发表于 2014-5-18 14:27

能运行啊，把48也改成适合的数字，或者用变量

新一一 · 发表于 2014-5-18 21:02

Sub 工资条()
For i = 3 To 108 Step 3
Range("A1:S2").Copy
Rows(i).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Next
End Sub

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