Question

起初我对英语不太了解，对此感到抱歉。然后我在Excel 2010上解决问题

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

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

Answer 1

在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

现在在Excel中写入，例如，A1中的值7然后写入A2：

= NextPrime（A1）

向下复制，你有一个从7开始的素数列表

Excel-Fill系列与素数

1 个答案: