excel简单有关问题

excel简单问题
A1 A2 A3 A4 A5 A6 ..............
现在要阿B1=A1 B2=A5 B3=A9 隔4个...

[解决办法]

VB code

Public Sub fun()    Dim aCol As Integer, bCol As Integer    aCol = 1    bCol = 1        While Trim(Cells(aCol, 1).Value) <> ""        Cells(bCol, 2).Value = Cells(aCol, 1).Value        bCol = bCol + 1        aCol = aCol + 4    WendEnd Sub