上一篇我們已經試過用Excel?自帶的索引完成了一次SQL檢索的操作，今天小編帶你用VBA實現SQL檢索，并實現相同項求和的功能

SELECT 字段名1,SUM(字段名2) FROM [原始數據$]) GROUP BY 字段名1 ORDERBY 字段名3

廢話不多說，先看效果

附上代碼：

Sub total() Dim Sql$, line&, i& Application.ScreenUpdating = False '關閉屏幕更新 Set xx =CreateObject("adodb.connection") '設置對象 With xx .Open"Provider=Microsoft.Ace.oledb.12.0;extended properties='excel12.0;HDR=yes';data source=" & ThisWorkbook.FullName Sql = "select 品號,sum(數量),sum(金額),類型 from [明細$] group by品號,品名,類型 order by 品號,類型 desc" [統計!A2].CopyFromRecordset.Execute(Sql) '放置查詢結果的起始位置 End With Application.ScreenUpdating = True End?Sub

今天重點就是這個SQL語句了

Sql ="select 品號,sum(數量),sum(金額),類型 from [明細$] group by 品號,品名,類型 order by 品號,類型 desc" SELECT 字段名1，字段名2，字段名3

表示在該字段名下的列進行檢索操作，檢索后的結果將也是以字段名1，字段名2，字段名3?的順序排列

FROM [表名$區域]

表名：指出檢索的字段所在的表格位置，可以使跨表格操作

區域：指出檢索的字段所在的表格中具體的位置，如果列的名稱從第一行開始，就可以不用填，如下圖所示：

SELECT?SUM(字段名2)?FROM?[原始數據$])?GROUP?BY?字段名1?可求出原始數據表中字段名2根據字段名1的分類求和值

例如：select 品號,sum(數量),sum(金額)…group by 品號,品名,類型

表示找出品號,品名,類型?都相同的元素，將數量和金額相加。

ORDER BY 品號,類型 desc

將查找的結果按“品號”為主要關鍵字和“品名”為次要關鍵字的順序排列，Desc?意思為降序排列

轉載請聯系授權(微信ID：Cxx-011)

---

源文件下載地址

鏈接：https://pan.baidu.com/s/1Ct7BMCSVcbJik_Mm7yt2ug

提取碼：cxx1

---

---

總結

以上是生活随笔為你收集整理的sql 列求和_Excel VBA高级编程SQL检索（二）合并相同项并求和的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。