For i=1 To 10
Excel.WriteCell(objExcelWorkBook,"Sheet1","A"&i,"123",false)   
Next
这样?

深受启发，
我的代码里已经有for 循环了，在for循环外定义了一个整体变量i=0，在for循环里做了i=i+1，这个问题就解决了
感谢

每次循环写A1前插入一行就行

也可以考虑将需写入的数据写到数组里通过写入行的方式将数组整体写入

Rem 在循环中（1~10次写入），第一次，A1写一个字符，第二次，A2 写入一个字符。。。以此循环结束，A10写完。
Dim objExcelWorkBook = ""
// 创建两个可用变量
// 需写入值 为需要往表格写的信息数组
// 用来写入表格数组 为往表格写数据的数组
Dim 需写入值 = ["壹","贰","叁","肆","伍","陆","柒","捌","玖","拾"]
Dim 用来写入表格数组 = []

// 用遍历出来的数组元素给value赋值，方便区分用的是倒叙
For Each value In 需写入值
    // 采用往数组头插入的方式实现倒序   
       用来写入表格数组 = Unshift(用来写入表格数组,value)
Next
// 打印 用来写入表格数组
TracePrint 用来写入表格数组
// 打开写入
objExcelWorkBook = Excel.OpenExcel(@res"doc\\test.xlsx",True,"Excel","","")
// 写入的位置可以根据实际情况来改变,不一定是A2
Excel.WriteRow(objExcelWorkBook,"Sheet1","A2",用来写入表格数组,False)
Excel.CloseExcel(objExcelWorkBook,True)