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("确定开始汇总 "