程序代码：

Sub test1()
Dim rng As Range, rng2 As Range
Dim startRow As Integer, endRow As Integer

startRow = 9: endRow = 13
Set rng = ActiveSheet.Range("A" & 1, "D" & 5)

Set rng2 = ActiveSheet.Range("A" & startRow, "D" & endRow)
rng2.Value = rng.Value

End Sub

程序代码：

excel = CREATEOBJECT('Excel.Application')
excel.DisplayAlerts = 0
excel.WorkBooks.add()
    *模拟A1:I17数据
FOR col=1 TO 9
    FOR row=1 TO 17
        excel.ActiveSheet.Cells(row,col).value = row*col
    ENDFOR 
ENDFOR
    *复制A1:I17到A20:I36
rngCopy(excel.ActiveSheet,1,1,17,9,20,1)

excel.Visible = 1
*    excel.WorkBooks.[color=#0000FF]Close[/color]
*    excel.Quit 

FUNCTION rngCopy(sheet,row1,col1,row2,col2,row3,col3)
    sheet.Cells(row1,col1).Resize(row2-row1+1,col2-col1+1).copy(sheet.Cells(row3,col3))
ENDFUNC