求excel VBA 数据筛选程序。

可以筛选出所有的可能

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

1、1-50生成用下面生成

Excel列举两个整数间不重复随机数

2、再排列

Excel数据如何快速排列

或先按顺序排好后，会随机变位置

Excel数据随机生成一列非空值

用数据随机换位置