如何改写下面的VBA让他不翻页也能达到一样的效果

369218787

Sub 下一条()

'

' 下一条 Macro

' 宏由 彭涛 录制，时间: 2012-2-29

'



'

    ActiveSheet.Previous.Select

    ActiveCell.Offset(1, 0).Range("A1").Select

    Selection.Copy

    ActiveSheet.Next.Select

    Range("C34").Select                   c3 : d4

    ActiveSheet.Paste

    Application.CutCopyMode = False

End Sub

     我的邮箱369218787@qq.com

JosephTan

发错地方了吧

369218787

JosephTan 发表于 2012-2-29 19:38
发错地方了吧

可能是，谢谢了，我在录的时候先用快捷键调好位置就可以了。