VBA代码：一键生成工资条和工资表
2023-07-08 22:59:00 来源：哔哩哔哩
代码如下：
Sub gongzitiao()
(资料图)
Dim i As Integer
Dim n As Integer
n = Cells(, 1).End(xlUp).Row - 2
("1:1").Select
For i = 1 To n '这里写上
'复制第一行
(2, 0).
shift:=xlDown
Next i
End Sub
Sub gongzibiao()
Dim i As Integer
Dim n As Integer
n = Cells(, 1).End(xlUp).Row / 2 - 1
("3:3").Select
For i = 1 To n
shift:=xlDown
(1, 0).
Next i
End Sub
关键词：
