在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)即可。这一切都在一个。