Excel 从指定两个区域提取两个值,使其和为特定值

来源：百度知道 编辑：UC知道 时间：2024/06/15 18:44:00
比如,A1:B100区域内有一系列数字,A111:B200区域内也有一系列数字,想要写个公式,使从这两个区域内各取一个数的和为固定值10000的所有可能组合,每个符合条件的组合返回符合条件数字所在的行列号,
最好是用公式表示,

编制如下命令按钮程序：
Private Sub CommandButton1_Click()
Dim rag1 As Range
Dim rag2 As Range
Dim i As Integer
Range("C:F").ClearContents
Range("C1").Value = "行1"
Range("D1").Value = "列1"
Range("E1").Value = "行2"
Range("F1").Value = "列2"
i = 2
For Each rag1 In Range("A1:B100")
For Each rag2 In Range("A111:B200")
If rag1.Value + rag2.Value = 10000 Then
Range("C" & i).Value = rag1.Row
Range("D" & i).Value = rag1.Column
Range("E" & i).Value = rag2.Row
Range("F" & i).Value = rag2.Column
i = i + 1
End If
Next
Next
End Sub

这可能需要用到VBA编程了。自己去编或者哪个热心人帮你去编吧。