小菜鸟又来求助了，关于函数的

公务员考试推数列吗

这应该去数学吧问

无唯一规则可寻，由黄区19、20、21可得出比较靠谱的曲线，绿区为结果。

Option Explicit
　
Sub abc()
　Dim i, j, a, n
　ReDim a(100, 1 To 3)
　a(0, 1) = 21: a(0, 2) = 204:: a(0, 3) = 18
　n = 24
　For i = 1 To UBound(a)
　　If i Mod 3 = 1 Then n = n + 6
　　a(i, 1) = a(i - 1, 1) + 1
　　a(i, 2) = a(i - 1, 2) + n
　　a(i, 3) = n
　Next
　[e1].Resize(UBound(a) + 1, 3) = a
End Sub