答:
Sub Demo()
Dim i As Long
Dim LastRow As Long
Dim Orng As Range
With Sheets("高温再热器")
Set Orng = .Range("A2")
LastRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
End With
With Sheets("报告")
For i = 2 To LastRow
.Range("D6") = Orng
.Range("L17") = Orng.Offset(0, 1)
.Range("L15") = Orng.Offset(0, 2)
.Range("L16") = Orng.Offset(0, 3)
.Range("k4") = Orng.Offset(0, 4)
.Range("k5") = Orng.Offset(0, 4)
Set Orng = Orng.Offset(1, 0)
Next
End With
End Sub
追问谢谢了 你在能不能在这个的基础上再加一个循环,高温再热器里的每一组数据在报告里有单不的表格,能帮我在横向加一个循环吗