请问代码怎写。

星界旅行者

刚接触VBA，还不会{:soso_e100:}，将左边的改成和右边的。

13010001                   13010001
13010002                   13010001A
13010003                   13010001B
13010004                   13010001C
13010005                   13010001D
                                   13010002
                                   13010002A
                                   13010002B
                                   13010002C
                                   13010002D.....................

如此循环

JerryLee_GD

Dim i as long, a as long
For i = 0 to 4
    a = [a1] + i
    cells(1+i*5,3)=a
    cells(2+i*5,3)=a & "A"
    cells(3+i*5,3)=a & "B"
    cells(4+i*5,3)=a & "C"
    cells(5+i*5,3)=a & "D"
Next

ckblack

{:soso_e179:}