[求助]一个表单的转换问题

badmojo

具体请看附件中的文件：

想使用宏来帮助自动变换，可是Range("A11:H11").Select
中的11好像不能是变量啊，试了好多次都不行，郁闷！



Sub Macro1()
'
' Macro1 Macro
' 宏由 ity 录制，时间: 2006-7-11
'

'
    Range("A1:H1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A11:H11").Select
    Selection.Insert Shift:=xlDown
End Sub