VBA

VBA で TRIM を使う場合は、これ↓（関数と同じ処理が出来る）

１、セル内の文字の前後の空白を全て削除
２、セル内の文字の途中にある複数の空白を１つにする

Application.WorksheetFunction.Trim(" A B C ")　⇒　"A B C"

Sub MojiBunkatu()
Dim lr As Long
Dim lc As Long
Dim ar As Variant
Dim i As Long

lr = 2
Do
ar = Split(Cells(lr, 2), "　")

i = 0
For i = LBound(ar) To UBound(ar)
Cells(lr, 3 + i) = ar(i)
Next i

lr = lr + 1
If Cells(lr, 2) = "" Then
Exit Do
End If
Loop

End Sub

Accessのモジュールウィンドウを開いた状態で、メニューより[ツール]-[参照設定]を選択します。
[参照可能なライブラリファイル]の一覧の中から「Microsoft Excel 8.0 Object Library」や、Excelのバージョンによっては「Microsoft Excel 5.0 Object Library」をチェックします。

一例として、Accessのモジュールに次のようなコードを記述し、実行してみます。
Debug.Print Excel.Application.Round(100 / 3, 0)
Debug.Print Excel.Application.RoundDown(100 / 3, 3)
Debug.Print Excel.Application.Sum(10, 20, 30)