从Excel Vba移动单元格值

Question

Sub A1right()

Dim Current As Worksheet

' Loop through all of the worksheets in the active workbook.
For Each Current In ThisWorkbook.Worksheets
    With Current
       .Range("A1:H1").Copy Destination:=.Range("B1:I1")
       .Range("A1").ClearContents
    End With
Next Current

End Sub

我想将值从A1移到H1到B1到I1。错误即将来临:( 需要帮助