我想在EXCEL表中把文字和数字空格，例如：

来源：百度知道 编辑：UC知道 时间：2024/06/30 08:47:12
千叶県馆山市船形290
东京都江戸川区东瑞江2－52
长野県东筑摩郡波田町3137
长野県上田市真田町长5913－1
把它变成如下：
千叶県馆山市船形 290
东京都江戸川区东瑞江 2－52
长野県东筑摩郡波田町 3137
长野県上田市真田町长 5913－1
因为数据太多，我一个一个手动空格太麻烦，哪个高人能指点一下，谢谢

数据在A列,B1输入公式
=left(A1,lenB(A1)-len(A1)&" "&right(A1,2*len(A1)-lenB(A1))

B1公式向下复制

B1=LEFT(A1,MIN(IF(ISNUMBER(--MID(A1,ROW($1:$100),1)),ROW($1:$100),10^5))-1)&" "&MID(A1,MIN(IF(ISNUMBER(--MID(A1,ROW($1:$100),1)),ROW($1:$100),10^5)),100)
公式以CTRL+SHIFT+回车结束.

在B1输入下面公式,并以CTRL+SHIFT+ENTER确认.
前面地址中可以包含英文字母,但是如果你前面地址中有逗号或括号之类的可能会引起错误.

=LEFT(A1,MIN(IF(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=57,ROW(INDIRECT("1:"&LEN(A1))),""))-1)&" "&RIGHT(A1,LEN(A1)-MIN(IF(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=57,ROW(INDIRECT("1:"&LEN(A1))),""))+1)

*************

用自定义函数,可以解决所有问题
按下ALT+F11,菜单:插入-模块
复制下面代码
假设你的数据在A列
在B1输入
=SPACEADD(A1)
然后向下填充公式,B列就是你要的数据.

Public Function SPACEADD(ByVal N As String) As String
Dim B As Integer
B = 1
Do Until Asc(Mid(N, B, 1)) >= 48 And Asc(Mid(