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