vba里面相同項后面數字相加 如對多個工作薄中的相同大小區域內的對應單元格的數值求和,在VBA中如何作?

用VBA或者excel把A1到A100中的數值,相加后等于1023的數組組合列出來,怎么弄?
這個用excel的線性規劃功能就可以做到了
如對多個工作薄中的相同大小區域內的對應單元格的數值求和,在VBA中如何作?
Sub 調取目錄()
On Error Resume Next
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(ThisWorkbook.Path)'在括號內輸入你指定的目錄
Set fc = f.Files
i = 1
For Each f1 In fc
If f1.Name <> ThisWorkbook.Name Then ListBox1.AddItem f1.Name
Next
End Sub
Private Sub CommandButton1_Click()
s = MsgBox("確定開始匯總 "