会VBA的看过来，帮忙改改，看看怎么改成delphi的代码 ( 积分: 100 )

Rows("11:11&quot.Select
Selection.Insert Shift:=xlDown
Range("D10:E10&quot.Select
Selection.AutoFill Destination:=Range("D10:E11&quot, Type:=xlFillDefault
Range("D10:E11&quot.Select
Range("H10:I10&quot.Select
Selection.AutoFill Destination:=Range("H10:I11&quot, Type:=xlFillDefault
Range("H10:I11&quot.Select
Range("F10&quot.Select
Selection.AutoFill Destination:=Range("F10:F11&quot, Type:=xlFillDefault
Range("F10:F11&quot.Select
Range("F11&quot.Select
ActiveCell.FormulaR1C1 = "=R[1]C[-5]-RC[-5]"
Range("F11&quot.Select
Selection.NumberFormatLocal = "G/通用格式"

实际就一句话
Selection.AutoFill Destination:=Range("D10:E11&quot, Type:=xlFillDefault
等于
ExcelWorkSheet1.Range['3:3','3:3'].AutoFill(ExcelWorkSheet1.Range['3:3','3:3'],xlFillDefault);

可是就是不对，提示autofill无效