在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) 。 這一切合而為一。