带素数的Excel填充序列

起初我不太懂英语，很抱歉。然后我在Excel2010上解决这个问题

我的问题是，要用素数填充序列，换句话说，当下拉单元格时，它们用素数填充。尝试自定义列表，但无效，单元格填充不相关的值

---

我该怎么做？是否有任何公式来填充系列

在VBA的模块中创建以下两个函数：

Function Prime(ByVal x As Long) As Boolean
Dim d As Long, raiz As Long
If x <= 3 Then
 Prime = x <> 1
Else
 If x Mod 2 = 0 Then
  Prime = False
 Else
  d = 3
  raiz = Int(Sqr(x))
  Do While (d < raiz) And (x Mod d <> 0)
   d = d + 2
  Loop
  Prime = x Mod d <> 0
 End If
End If
End Function

Function NextPrime(ByVal x As Long) as long
 x = x + 1
 If x Mod 2 = 0 Then x = x + 1
 Do While Not Prime(x)
  x = x + 2
 Loop
 NextPrime = x
End Function

函数素数（ByVal x长度）为布尔值
d一样长，raiz一样长
如果x的问题不是填充序列，而是用素数填充序列。您应该创建一个udf vba函数来获取给定素数之后的下一个素数，然后在工作表中以公式形式调用该函数…谢谢您的回复。在没有vba的情况下，有没有这样做？在创建自定义项后，excel在下拉时用素数填充单元格？我看不出没有vba的任何方法，如果函数返回下一个素数，则是这样！！谢谢你的帮助。