Excel VBA将行值向上复制一行

我有一个过滤过的电子表格，其中有交替的行，如下所示： -一行中a列中的值 -下一行有C列和E列中的值 使用VBA，如何将C列和E列中的值复制粘贴到图纸整个使用范围的一行上

我希望将数字上移一行，使其与字母位于同一行。

您应该尝试以下操作：

Sub MoveValues()    
    With ActiveSheet
        For Each Row In .Rows
            If Row.Cells(3) <> 0 Then
                Range(Cells(Row.Row, 3), Cells(Row.Row, 5)).Cut Destination:=Range(Cells(Row.Row - 1, 3), Cells(Row.Row - 1, 5))
            End If
        Next Row
    End With
End Sub

Sub-MoveValues（）
使用ActiveSheet
对于.Rows中的每一行
如果行单元格（3）为0，则
范围（单元格（第3行），单元格（第5行））。剪切目标：=范围（单元格（第1行，第3行），单元格（第1行，第5行））
如果结束
下一排
以
端接头

请在问题中包含您正在使用的代码，并解释您在这方面遇到的问题。