Sub Macro1()
'
' Macro1 Macro
' 宏由 MC SYSTEM 录制,时间: 2008-7-24
'
If Range("A2") = 1 Then Range("A3").Select: ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End Sub作者: liwen 时间: 2008-7-24 17:47
Sub test()
For i = 1 To 10
a = "A" & i
Range(a).Formula = i
Next
End Sub作者: bfwz 时间: 2008-7-24 20:13
谢谢版主