以下自己尝试写模块，写的根据不同字段拆分并追加到表的代码

Function Dsplit(Text As String, TableText As String, TableName As String, Optional Char As String)
Dim rs As Recordset
Dim i As Integer
Set rs = CurrentDb.OpenRecordset(TableName)
For i = LBound(Split(Text, Char)) To UBound(Split(Text, Char))
rs.AddNew
rs.Fields(TableText) = Split(Text, Char)(i)
rs.Update
Next
rs.Close
Set rs = Nothing
End Function

'Call Dsplit(拆分字段名,表插入字段名,表名,可选字符串)