非简单拆分字段后再合并表，难度超大

帮你做不如告诉你是怎么做的，我把你不懂得地方解释了下，应该比较简单的。

其实你第二个附件与第一个也差不多，

1.你参照TB1结构复制个TB2表。

2.原先的字段“HB”，现在的字段名是“合并”，改下字段名货改下语句中的字段名。

3.原先A/B/C字段，现在多了序号/AA/....等字段，你就参照前面的加上（ AI / BI......  以及DoCmd.RunSQL）

DoCmd.SetWarnings 0
Dim rs As New ADODB.Recordset
rs.Open "tb1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst

Do Until rs.EOF
HBI = rs("HB")    'HBI  是“合并”的汉语拼音HB，在加上字母i，方便记忆。后面的AI代表字段A后面加字母I。你新表中有多字段，就参照AI、BI、CI....继续自己编好了。
ai = rs("A")
bi = rs("B")
ci = rs("C")
lenHB = Len(HBI)   '判断下HB（合并）字段有多长。

wzxgi = 0   'WZXGI意思是“位置斜杠”的汉语拼音再加上字母I。这里设置其初始位置为0.
wzxg = InStr(wzxgi + 1, HBI, "/", 1)    '同上
KT = Mid(HBI, 1, wzxg)  'KT意思是“开头”     按照你的样例，第一个斜杠前面的内容在拆分后需要作为分开字段的开头。比如“1-/” 和“3-/”. MID是个函数，这里的意思是：取HB字段，从第一字符开始取，取WZXG个字符（WZXG就是斜杠的位置，比如第一条记录的第一个斜杠在第3个字符，则WZXG就是3）
wzxgi = wzxg

Do Until wzxg = lenHB - 1
wzxg = InStr(wzxgi + 1, HBI, "/", 1)
If wzxg = 0 Then
Exit Do
End If

hbnr = KT & Mid(HBI, wzxgi + 1, wzxg - wzxgi)   'HBNR就是“合并内容”的汉语拼音。
 DoCmd.RunSQL "INSERT INTO tb2 ( hb,a,b,c ) values(" & Chr(34) & hbnr & Chr(34) & "," & Chr(34) & ai & Chr(34) & "," & Chr(34) & bi & Chr(34) & "," & Chr(34) & ci & Chr(34) & ")"
wzxgi = wzxg
Loop
rs.MoveNext

Loop
DoCmd.OpenTable "tb2"