如何创建类似于以下内容的数字列表?

时间:2019-06-20 10:56:35

标签: excel vba

我想在单独的单元格中的excel中创建这样的数字列表

(column B);
1
1
2
1
2
3
1
2
3
4
.
.
.
.

如果看不到每个数字都是从1到您所用数字的序列。

谢谢。

3 个答案:

答案 0 :(得分:4)

仅使用公式,不使用VBA:

在B列中:

1 | 1
2 | 1
3 | =IF(B2-MAX(B$1:B1)<1,B2+1,1)

然后填写该公式

如果您只想一个独立存在的公式(不引用其他单元格),则可以使用更具影响力的公式在项n = ROW()处评估triangle sequence

=IFERROR(ROW() - COMBIN(INT((1+SQRT(8*ROW()))/2), 2),1)

(IFERROR部分仅处理第一个项,该项尝试评估COMBIN(1,2))

答案 1 :(得分:1)

x = 1 'the starting row value
y = 2 'the starting column value
z = 9 'the number of entries you ultimately want to make
entryMax = 1 'the max number of this sequence
entryStart = 1 'the start of the sequence

Do While x<=z
entryStart = 1 'reset the value of entryStart    
    Do While entryStart <= entryMax
    cells(x, y) = entryStart
    x= x + 1
    entryStart = entryStart + 1
    Loop
entryMax = entryMax + 1
Loop

答案 2 :(得分:0)

如果您以B1中的数字1开头,则输入

=B1*10+ROW()

在B2中,您可以将其向下拖动

但是您没有说明B9之后的模式是什么