求一个EXCEL变量，函数

Question

例如，A列中，从A1-A150每项中有任意一个数值，需要A1至A150与A（A1+A2 A1+A3 A1+A4一只到A1+A150 然后是A2+A1 A2+A3一只循环到A150+A1 A150+A2------A150+A149）列中任意一个数值相加，符合等于或大于900的，在B列中列出
a B C
A1 500 A1+A2=800
A2 300 A1+A3=1000 （大于900）1000
A3 500 A1+A4=800
A4 200
.
.
A150 300 A1+A150=800
就是这样的，计算完A1后计算A2，有没有具体的函数公式？设定好一个公式，让后复制下来，将计算结果大于或等于900的在C列中列出

Answer 1

a1与其余数相加，大于等于900，在c2:c150显示：

c2 =if(a$1+a2>=900,a$1+a2,"")，下拉复制公式

a2与其余数相加，大于等于900，在d1:d150显示：

d1 =if(a$2+a1>=900,a$2+a1,"")

..........

要在c列显示所有结果只有用宏。如要保存结果仍需使用其他列。 

不如做成如图所示：

Answer 2

用宏吧，
VBA程序如下
Sub test()
Dim i, j, k As Integer
k = 1
For i = 1 To 149
For j = i + 1 To 150

If (Cells(i, 1) + Cells(j, 1)) >= 900 Then
Cells(k, 2) = (Cells(i, 1) + Cells(j, 1))
k = k + 1
End If

Next j
Next i

End Sub追问

不好意思，我是小白，怎么插入这个宏？我的VB工具条只有“安全”能点，其他都是灰的。

追答

你的表是不是保护了？那可能用不了，一般按ALT+F11键就打开了，把程序拷到数据对应页。

追问

我没有审定保护啊，是新建的工作表