请帮我译一下其意义,并告诉我这是怎么做的,谢谢

km1973

第一段
Sub EDSclear()
'
' EDSclear Macro
' 宏由 zhangguangbai 录制，时间: 2009-2-25
'

'
    Range("B7:AS12").ClearContents
    Range("B7:AS12,C3,C4:H4,N4:R4,N3,V4,Z4:AB4").ClearContents
    Range("Z4:AB4").ClearContents
    Range("B7:AS12,C3,C4:H4,N4:R4,N3,V4,Z4:AB4,AG4,AL4:AM4,AQ4:AS4,AO3").ClearContents
    Range("AO3").ClearContents
    Range( _
        "B7:AS12,C3,C4:H4,N4:R4,N3,V4,Z4:AB4,AG4,AL4:AM4,AQ4:AS4,AO3,B15:I22,N16,N19,N20,N21,P22,V14:V21" _
        ).ClearContents
    Range("V14").ClearContents
    Range( _
        "B7:AS12,C3,C4:H4,N4:R4,N3,V4,Z4:AB4,AG4,AL4:AM4,AQ4:AS4,AO3,B15:I22,N16,N19,N20,N21,P22,V14:V21,AE14:AE20,AO14:AO19,AR22" _
        ).ClearContents
    Range("AR22").ClearContents
    Range("c3").Select

End Sub

第二段


第三段Sub Macro1()
'
' Macro1 Macro
' 宏由 zhangguangbai 录制，时间: 2009-3-2Sub EDSinput()
    Sheets("Database").Select
    Range("A4:GF4").Copy
   
    ' Move the cellpointer to the first blank line at the bottom
    ActiveCell.SpecialCells(xlLastCell).Activate
    ActiveCell.Offset(1, -ActiveCell.Column + 1).Activate
    Do While ActiveCell.Offset(-1, 0).Value = ""
        ActiveCell.Offset(-1, 0).Activate
    Loop
   
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Input form").Select
   
    Range("B7:AS12").ClearContents
    Range("B7:AS12,C3,C4:H4,N4:R4,N3,V4,Z4:AB4").ClearContents
    Range("Z4:AB4").ClearContents
    Range("B7:AS12,C3,C4:H4,N4:R4,N3,V4,Z4:AB4,AG4,AL4:AM4,AQ4:AS4,AO3").ClearContents
    Range("AO3").ClearContents
    Range( _
        "B7:AS12,C3,C4:H4,N4:R4,N3,V4,Z4:AB4,AG4,AL4:AM4,AQ4:AS4,AO3,B15:I22,N16,N19,N20,N21,P22,V14:V21" _
        ).ClearContents
    Range("V14").ClearContents
    Range( _
        "B7:AS12,C3,C4:H4,N4:R4,N3,V4,Z4:AB4,AG4,AL4:AM4,AQ4:AS4,AO3,B15:I22,N16,N19,N20,N21,P22,V14:V21,AE14:AE20,AO14:AO19,AR22" _
        ).ClearContents
    Range("AR22").ClearContents
    Range("B32:AS33").ClearContents
    Range("c3").Select
   
   
   
   
   
   
   
   
   
    End Sub
'

'
    Range("B32:AS33").Select
    Selection.ClearContents
End Sub

km1973

帮忙啊

大侠！！

xiaofucaidao

第一段，清除了n多单元格的数据
第二段，复制A4:GF4的内容，粘贴数值到某个位置。又清除了n多单元格的内容。
做法是，工具，宏，录制新宏，手工执行上面的各项操作，完成后点停止录制按钮，代码就写在VBA的模块里了，按Alt+F11可以打开VBA窗口。