请看工资表样式
Dim excel As New excel
Dim wbk = excel.activeworkbook
Dim ws = wbk.Sheets("Sheet2")
Dim ws2 = wbk.Sheets("Sheet8")
Dim i, r As Integer
For i = 1 To 40
r = i * 3 - 1 '工资单每隔3行一条
ws.range("2:2").copy(ws2, r, 1) '复制标题行
ws.range(CStr(i + 2) + ":" + CStr(i + 2)).copy(ws2, r + 1, 1) '复制数据行
Next
可以轻松获得以下单条工资条：
如果是多行工资条，比如：
标题条有3行，稍加修改，上例可以改为：
Dim excel As New excel
Dim wbk = excel.activeworkbook
Dim ws = wbk.Sheets("Sheet1")
Dim ws2 = wbk.Sheets("Sheet2")
Dim i, r As Integer
For i = 1 To 40
r = i * 5 - 3 '工资单每隔5行一条
ws.range("2:4").copy(ws2, r, 1) '复制标题行
ws.range(CStr(i + 4) + ":" + CStr(i + 4)).copy(ws2, r + 3, 1) '复制数据行
Next
生成的工资条如下图：
微信公众号“探索3000”原创作品，谢绝转载
