[已解决]怎么用VBA实现,将期末结存转期初数

n520

谢谢各位楼主的帮助，我的问题解决了，这是我要的效果



Sub Rectangle1_Click()     Dim i&   
    With Sheet1   
         Application.ScreenUpdating = False   
            i = .Range("A65536").End(3).Row   
            .Range("C3:C" & i) = .Range("F3:F" & i).Value   
            .Range("F3:F" & i).Value = ""   
       Application.ScreenUpdating = True   
  End With
End Sub