主题：请指教：循环赋值代码

 

各位老师：

   我想在代码中实现：当循环第一次时，表中单元格13,0的值是1,13,1的值是AB,循环第二次时：表中单元格14,0的值是2，14,1的值是BC，依次类推！

Dim  Multi As String = "AB|BC|CD|DE"
Dim Values() As String = Multi.split("|")
Dim fs As String = Values.Length
For Index As  Integer = 0 To Values.Length - 1
    Output.Show(Values(Index))
Next
For xh As  Integer = 1 To fs Step 1
    Output.Show(xh)
Next

这段代码在命令窗口实现了我想要的结果，

AB

BC

CD

DE

1

2

3

4

但怎样将循环值赋给单元格，并且每循环一次将单元格的行数增加一，这段代码折腾了好几天写不出来

    Sheet(13,0).Value = xh
    Sheet(13,1).Value = Values(0)

请各位老师指点！

谢谢！