1.如果是合并兩個表的話，我覺得還是將ACCESS軟件里面的數據導入到EXCEL里面去。在這里面做數據比較的方便，因為它就是為數據而生的。
導入到EXCEL里面了就使用數據透視表的功能，在提取字段的時候可以發揮出它的較大能力。當然為了較好的使用數據透視表還是了解一些SQL數據庫的知識，因為這個數據透視表是建立在這個SQL數據庫知識上面的。
2.僅僅是提取字段的話，個人覺得還是數據透視表比較簡單。如果復雜一些的話，那就使用函數了。

以下函數使用“自動化”功能調用 Excel 的 Median () 函數。數字組的一半在中值之下，而另一半則在中值之上。 Sub xlMedian()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
MsgBox objExcel.Application.Median(1, 2, 5, 8, 12, 13)
objExcel.Quit
Set objExcel = Nothing
End Sub
該函數在消息框中顯示 6.5。
示例 2

以下函數使用“自動化”功能調用 Excel 的 ChiInv () 函數，該函數返回卡方分布的倒數或單尾概率。 Sub xlChiInv()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
MsgBox objExcel.Application.ChiInv(0.05, 10)
objExcel.Quit
Set objExcel = Nothing
End Sub
該函數在消息框中顯示 18.3070290368475。
通過直接調用 Excel 引用可以簡化代碼： Sub xlChiInv()
MsgBox Excel.Application.ChiInv(0.05, 10)
End Sub
備注： 使用該語法時，Excel 將保留在內存中，直到重置代碼或關閉數據庫。
使用加載項

Excel 也使用加載項。這些程序包含自定義函數和命令。如果需要使用包含在加載項程序中的函數，請先打開加載項。以下示例使用 LCM (Least Common Multiple) 函數： Sub xlAddin()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
Opens the add-in, which is in the Analysis folder of the
Excel Library Directory.
objExcel.workbooks.Open (objExcel.Application.librarypath & _
"\Analysis\atpvbaen.xla")
Runs the AutoOpen macro in the add-in
objExcel.workbooks("atpvbaen.xla").RunAutoMacros (xlAutoOpen)
MsgBox objExcel.Application.Run("atpvbaen.xla!lcm", 5, 2)
objExcel.Quit
Set objExcel = Nothing
End Sub
該函數在消息框中顯示 10。