格式

Sub jljl()
arr = Range("a2:e22") '内存表
For r = 2 To 100 Step 2 '取一个大点的数假如要放100行
For y = 1 To 8 'PL号要分多少列
m = m + 1 '循环数据表的每一行
Cells(r, "g") = arr(m, 1) '合同号
Cells(r + 1, "g") = arr(m, 1) '合同号
Cells(r, "h") = arr(m, 2) '负责人
Cells(r + 1, "h") = arr(m, 2) '负责人
Cells(r, "i") = arr(m, 3) '状态
Cells(r + 1, "i") = arr(m, 3) '状态
Cells(r, y + 9) = arr(m, 4) 'PL号
Cells(r + 1, y + 9) = arr(m, 5) '位置
If m = 21 Then '21代表数据表的最大行数
End
End If
If arr(m + 1, 1) <> arr(m, 1) Then '换行
r = r + 2
y = 0
End If
Next
Next
End Sub