求助：Excel，文字与数字混合，求分列。

susan2002180

Excel中   的一列内容   石场沟16.8宫大地12.3芥菜地8.9白庙子16.9房框18.5王腐地8.9王晌地6.59  
怎么把这一列的文字与数字混合的分开。或者在每个后面加上一个可以数据分裂的符号，例如“ 石场沟16.8*宫大地12.3*芥菜地8.9*白庙子16.9*房框18.5*王腐地8.9*王晌地6.59  ”

SuperYou

wps 分列，选择按照文本类型分列
具体如图：

lisongmei

VBA写一个自定义函数

Option Explicit

Function addsep(sr)
Dim kk As String
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "(\d)(?=[\u4e00-\u9fa5])"
    addsep = .Replace(sr, "$1,")
End With
End Function

caiduyi127

最新版wps，用正则函数替换
=REGEXP(A1,"([0-9.]+)(?=\p{Han})",2,"\1，")

Excel里面用这个
=REGEXREPLACE(A1,"([0-9.]+)(?=\p{Han})","$1，")

ＣＣ

内容置于A1单元格，另外单元格输入公式：

[Visual Basic] 纯文本查看 复制代码

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXTJOIN(,,IF(CODE(ASC(MID(B4,SEQUENCE(LEN(A1)),1)))>100,"+"&ASC(MID(A1,SEQUENCE(LEN(A1)),1))&"+","-"&ASC(MID(A1,SEQUENCE(LEN(A1)),1))&"-")),",-","*"),"-+","*"),"+",),"-",)

ＣＣ

ＣＣ 发表于 2024-7-16 11:59
内容置于A1单元格，另外单元格输入公式：

[Visual Basic] 纯文本查看 复制代码

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBST ...[/quote]修正下：
[mw_shl_code=vbnet,true]=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXTJOIN(,,IF(CODE(ASC(MID(A1,SEQUENCE(LEN(A1)),1)))>100,"+"&ASC(MID(A1,SEQUENCE(LEN(A1)),1))&"+","-"&ASC(MID(A1,SEQUENCE(LEN(A1)),1))&"-")),",-","*"),"-+","*"),"+",),"-",)

jyjjf

ＣＣ 发表于 2024-7-16 12:40
修正下：
[mw_shl_code=vbnet,true]=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXTJOIN(,,IF(CODE(AS ...

,-这个替换是不是多余了？

lbxh001

上面的结果都太复杂，你这是单独一行还是有一例都需要拆分？

lbxh001

上面的结果都太复杂，你这是单独一行还是有一例都需要拆分？
如果是一行，随便怎么弄，自己插几个符号就好
如果有一列都是这样的字符串需要拆分，就在第一行后续的空格上把所有需要拆分的单独填到单元格里面去，到第二行相对应的空白处按：ctrl+e键，就会自动把这一列相应的内容提都取出来，简单方便。

ＣＣ

jyjjf 发表于 2024-7-16 15:05
,-这个替换是不是多余了？

这都看到了，是多嵌套了个，之前TEXTJOIN用了逗号，忘记删除了