求EXCEL函数公式: 1-1000范围的循环函数，每次循环递增，每次循环由1000递减1

Question

求EXCEL函数，1-1000范围的循环函数，每次循环递增，每次循环由1000递减1

Answer 1

按照题目要求，请在A3输入公式：

=IF(SUM(A2)>=1000-COUNTIF(A$2:A2,1)+1,1,SUM(A2)+1)

下拉即可

由于1000太大，我使用变化的参数进行演示，首次循环范围数值填在B2里面，公式改为：

=IF(SUM(A2)>=$B$2-COUNTIF(A$2:A2,1)+1,1,SUM(A2)+1)

这样B2输入5的时候公式结果如下：

B2修改为6后结果如下：

Answer 2

用VBA吧
sub ff()
dim i&,p%,q%,arr
redim arr(1 to 550000,1 to 1)
i=0
for p=1 to 999
for q=1 to 1001-p

i=i+1

arr(i,1)=q

next

next
[A1].resize(550000,1)=arr
end sub