如何在使用 VBA 时移动粘贴范围？答案

【问题标题】：How to move paste range while using VBA?如何在使用 VBA 时移动粘贴范围？
【发布时间】：2021-06-30 23:15:33
【问题描述】：

我在 excel 中运行 75 次迭代。现在，我需要一个 VBA 代码来复制和粘贴每次迭代的结果。为此，我使用以下代码。但是，我在这里没有得到正确的粘贴功能。如何在每次迭代后移动粘贴范围以使所有输出可见？

Copy Range defined as - Range("Sens_Copy_GT").Value (Size: 7 Rows and 10 Columns)
Paste Range defined as- "Sens_Paste_GT"

Option Explicit
Sub Sens_GT()
Dim j As Variant
For j = Range("FROM").Value To Range("TO").Value
Range("Sens_Reduction").Value = j
Range("Sens_Paste_GT").Offset(j, 0) = Range("Sens_Copy_GT").Value
Next j
Range("Sens_Reduction") = 0

End Sub

【问题讨论】：

标签： excel vba

【解决方案1】：

Option Explicit

Sub Sens_GT()

    Dim j As Long, rng As Range
    Set rng = Range("Sens_Paste_GT")
    For j = Range("FROM").Value To Range("TO").Value
        Range("Sens_Reduction").Value = j
        rng.Resize(7, 10).Value = Range("Sens_Copy_GT").Value
        Set rng = rng.Offset(7)
    Next j
    Range("Sens_Reduction") = 0

End Sub

【讨论】：

非常感谢。这很有帮助。