作者：乔山办公网日期：
返回目录：excel表格制作
先弄到EXCEL中，弄好数据，设置好列标题，保存为xls格式，再在ACCESS，链接电子表文件，用查询追加到表中。
麻烦上传文件或者图片
这样的描述，
看不清楚呀。
直接用一个分列功能不就可以吧B列按照你的要求分开了不是吗，然后把多出来的删掉不就行了，也可以使用取左公式 left（B2,10）这样也可以只去左边日期部分
试试VBA?
Public Sub aa()
x = Range("A65536").End(xlUp).Row
a = 1 '左面问第几答个内字符容
b = 2 '中间第几个字符
c = 3 '右数第几个字符
For i = 1 To x
Cells(i, 2) = Left(Cells(i, 1), 1)
Cells(i, 3) = Mid(Cells(i, 1), b, c - b)
Cells(i, 4) = Right(Cells(i, 1), c)
Next
End Sub