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

Posted 2023-04-27

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

答：

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

追问

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

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

如何使用Excel VBA仅更新特定工作表中的链接，而不是整个工作簿？

我有一个Excel文件，其中来自多个地理区域的一些数据汇集在一起​​。来自一个地理位置的人无法访问其他地理位置的共享点。每个地理区域都有自己的工作表，其中数据应每月更新一次。

我想在每个工作表上都有一个按钮，每月一次，每个地理位置的某个人在将工作表捆绑到一个工作表之前更新他们的工作表。

函数.UpdateLinks仅适用于整个工作簿，这是不可取的，因为sharepoint访问是分开的。

我试图将Excel计算设置为手动，然后向.Calculate创建了一个按钮，该特定表单但它似乎最初工作但不可靠。

ThisWorkbook.Sheets("worksheet1").Calculate '(inconsistent)

ThisWorkbook.Sheets("worksheet1").UpdateLink '(doesn't work)

我想有一个按钮来更新特定工作表中的链接，而不是整个工作簿。

答案

Workbook.UpdateLink method位于Workbook，并且在Worksheet中不存在，因此只能更新整个工作簿的链接，但不能仅更新单个工作表。

不支持仅更新单个工作表中的链接。