您用VBA 如何求出 用一组数凑出5000的? 可以分享一下代码吗

您用VBA 如何求出 用一组数凑出5000的? 可以分享一下代码吗

设数据在A列，求和的值在D1列，代码如下
Sub admin()
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")


Select Case Application.Version * 1
Case Is <= 11
    conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
                            "Extended Properties=Excel 8.0;" & _
                            "Data Source=" & ThisWorkbook.Path & "" & ThisWorkbook.Name
Case Is >= 12
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "Extended Properties=Excel 8.0;" & _
                            "Data Source=" & ThisWorkbook.Path & "" & ThisWorkbook.Name
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
End Select

conn.Open

sSql = "Select a.Êý¾Ý ,b.Êý¾Ý From [Sheet1$A:A] a, [Sheet1$A:A] b Where a.Êý¾Ý <= b.Êý¾Ý And a.Êý¾Ý + b.Êý¾Ý = " & Range("D1")
Range("J2:K" & Cells.Rows.Count).ClearContents
Range("J2").CopyFromRecordset conn.Execute(sSql)
conn.Close
Set conn = Nothing
End Sub数据是我随便乱填的，附上文件