在excel中使用VBA如何同一个工作簿下工作表内的数据移到另一个工作表指定位置请大神指点

答：

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

录制个宏不就知道了。录制宏，复制、粘贴，停止录制，加个循环。
sheet2.[C3]=sheet1.[A5]
上机这样也可以。