Question

求excel VBA 数据筛选程序。

从ABC列中筛选出数放在EFG列中。满足条件如下：A列中的数+B列中的数=C列中的数.（这3个数可以不同行）此时把A中的数放到E中，把B中的数放到F中，把C中的数放到G中.
15分呀，有人会么？

Answer 1

三次循环嵌套
可以筛选出所有的可能

Sub match()
Dim a, b
a = Range("A65536").End(xlUp).Row
b = 1
For i = 1 To a
For j = 1 To a
For k = 1 To a
If Cells(i, 1).Value + Cells(j, 2).Value = Cells(k, 3).Value Then
Cells(b, 5).Value = Cells(i, 1).Value
Cells(b, 6).Value = Cells(j, 2).Value
Cells(b, 7).Value = Cells(k, 3).Value
b = b + 1
End If
Next
Next
Next
End Sub

Answer 2

A1=1
for i=1 to 65535
if cells(i,1)="" then
exit for
else
if cells(i,1)+cells(i,2)=cells(i,3) then
cells(a1,5)=cells(i,1)
cells(a1,6)=cells(i,2)
cells(a1,7)=cells(i,3)
a1=a1+1
else
endif
endif
next

Answer 3

数组函数：
E1 {=IF($A$1:$A$13+$B$1:$B$13=$C$1:$C$13,A$1:A$13,"")}
向右填充3列，向下填充13行
就OK了