excel - 对于从第一个 FOR 单元格开始的每个 In : Is it possible to run through a single-column range and paste multiple columns,？

Question

我在尝试优化代码的某个部分时遇到了麻烦。我正在执行蒙特卡洛模拟，我想复制一个范围的值重复多次。为此，我使用了 For Each In 结构。下面是一个最小的例子。

sub example()
Dim live As Excel.Range 'the range to be copied in each For Each In
Dim acell as Excel.Range 'For range
Set live = Range("C5:P5")

For Each acell in Range("B9:B90")
acell.value=live.value
Next acell

End Sub

问题是 live跨越多列，而 acell只是一个细胞；最终发生的只是第一列被复制，其余的都是空白的。我也用过 For Each acell in XYZ.rows在哪里 XYZ是先前定义的多列和多行范围。但是，这要慢得多。

是否可以从第一个单元格开始遍历单列范围并粘贴多列？

Answer 1

这是你想要的？

Sub example()
Dim live As Excel.Range 'the range to be copied in each For Each In
Dim acell As Excel.Range 'For range
Set live = Range("C5:P5")

live.Copy
Range("B9").PasteSpecial xlPasteValues, , , True

End Sub