Question

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

在excel中如何同一个工作簿下工作表内的数据移到另一个工作表指定位置，需要将高温再器工作表中的数据，按规定移到工作表报告中的指定位置，形成循环。





Answer 1

答：

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

追问

谢谢了 你在能不能在这个的基础上再加一个循环，高温再热器里的每一组数据在报告里有单不的表格，能帮我在横向加一个循环吗

Answer 2

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