剪切范圍並將其粘貼到單元格上的代碼，例如excel（VBA）

Question

我正在嘗試使用以下代碼來剪切和粘貼一些數據：

For c = p To 12
    If Sheets("Hoja2").Cells(4, 3 + c + yy).Value <> "Total general" Then
        c2 = p - 1
        dif = Sheets("Hoja2").Cells(4, 3 + c + yy).Value - Sheets("Hoja2").Cells(4, 3 + c2 + yy).Value
        If Sheets("Hoja2").Cells(4, 3 + c + yy).Value - Sheets("Hoja2").Cells(4, 3 + c2 + yy).Value <> 1 Then
            Sheets("Tabla Final REV").Range(Cells(5, (4 * (e * 3 + t) + 4 * (1 - t) + p - 1)), Cells(variablefinalfila, 15)).Cut Sheets("Tabla Final REV").Range(Cells(5, (4 * (e * 3 + t) + 4 * (1 - t) + p + dif - 1 - 1)), Cells(5, (4 * (e * 3 + t) + 4 * (1 - t) + p + dif - 1 - 1)))
        End If
    Else
        Exit For
    End If
Next c

但它不會粘貼任何內容。

換句話說，我的代碼就是：

For x = 1 to 12 
     if condition
      if othercondition
         Sheets("Mysheet").Range(cells(number,number2), cells(number3,number4)). Cut Sheets("Mysheet").Range(cells(anumber,anumber2),cells(anumber,anumber2))

我可以做些什么來改善它？

Answer 1

確認那些Cells 可以修復它：

 With Sheets("Tabla Final REV")
    .Range(.Cells(5, (4 * (e * 3 + t) + 4 * (1 - t) + p - 1)), .Cells(variablefinalfila, 15)).Cut .Range(.Cells(5, (4 * (e * 3 + t) + 4 * (1 - t) + p + dif - 1 - 1)), .Cells(5, (4 * (e * 3 + t) + 4 * (1 - t) + p + dif - 1 - 1)))
 End With

請注意.Cells前面的點