在 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)。合而为一。