EXCEL中如何每隔五个数取六个数呢

Option Explicit
Sub 猜一个()
　Dim a, i, j, m
　a = [a1].CurrentRegion.Resize(, 1).Value
　For i = 1 To UBound(a) Step 6 + 5
　　For j = i To i + 6 - 1
　　　m = m + 1
　　　a(m, 1) = a(j, 1)
　　　If j = UBound(a) Then Exit For
　　Next
　Next
　With [c:c]
　　.ClearContents
　　.Resize(m) = a
　End With
End Sub