在VBA中剪切并粘贴for循环

Question

我正在尝试将for循环中的值从一个列表剪切并粘贴到另一个列表。 我已经设置了所有范围，但是由于某种原因， paste一直失败，并且我不确定为什么。 到目前为止，这是我尝试过的方法：

If WrdArray1(0) = WrdArray2(0) Then
ActiveCell.Cut
With ActiveSheet
Set rng2 = .Range("C" & position)
rng2.PasteSpecial
End With

我对vba还是比较陌生，因此将不胜感激。

Answer 1

只需使用ActiveCell.Cut Destination:=ActiveSheet.Range("C" & position) 。 这一切合而为一。