如何在小数点后两位数字的后边加一个空格或其他字符

elogysu

fengdanbailu 发表于 2011-11-17 09:55
哪位高手能告知具体的处理方法

分别截取，然后再合并。如附件。

elogysu

单个赔率项提取出来后要乘以1，才能用于计算。

shd19920422

先说7楼方法错误。你无法保证赔率会不会是1.11 2.22 11.11这样有两串一样的数字。

我说个笨办法。

假设赔率一定有两位小数，但是整数部分不确定1位还是2位或者3位，那么可以利用字符串的长度来确定截取的位置及长度。

首先用find公式查找第一个小数点的位置，用left公式截取两位小数，获得第一组数字。
=MID(G1,1,FIND(".",G1)+2)

然后判断整个赔率的长度和第一组赔率的长度。可以得知第二组数字应该从哪位开始截取，并且截取多长。例如1.112.2211.11这一组数字。总长度是13，通过第一个公式我们获得了第一组数字是1.11，长度是4。我们用公式FIND(".",G1,FIND(".",G1)+1)确定第二个小数点的位置是6，那么就知道要从第5位开始截取，截取6+2-4的长度。第二列公式如下：
=MID(G1,LEN(H1)+1,FIND(".",G1,FIND(".",G1)+1)+2-LEN(H1))


第三组就可以直接用right公式获得了。
=RIGHT(G1,LEN(G1)-LEN(H1)-LEN(I1))

之后用&链接即可。
解决方案.zip (10.51 KB, 下载次数: 10)

2019-3-6 12:12 上传

点击文件名下载附件

这个方法可以确保：
第一、不怕每组赔率的数字是3位还是4位。
第二、即使乱序排列也可以识别出来，如12.345.6765.43。

shd19920422

fengdanbailu 发表于 2011-11-17 08:53
这是附件，需要处理的是G列中的数据

假如有1.11 2.22 11.11这样的赔率，你这个方法就会出错。

shd19920422

hidalgo 发表于 2011-11-17 09:19
处理结果见附件，是不是这个要求

假如有1.11 2.22 11.11这样的赔率，你这个方法就会出错。

ljf8825

代码 仅供参考
Sub quzhi()
    Dim rng As Range
    Set rng = Range("a1:a51")
   
    Dim r As Range
    Dim j As Integer
    For Each r In rng
        Dim s As String, s1 As String
        s = r.Value
        For j = 1 To 3
            s1 = Mid(s, 1, InStr(1, s, ".") + 2)
            r.Offset(0, j).Value = s1
            s = Mid(s, Len(s1) + 1, Len(s))
        Next
    Next
End Sub

libo5563

=CONCATENATE(LEFT(G2,FIND(".",G2,1)+2),"  ",LEFT(MID(G2,LEN(LEFT(G2,FIND(".",G2,1)+2)),16),FIND(".",MID(G2,LEN(LEFT(G2,FIND(".",G2,1)+2)),16))+2),"  ",MID(MID(G2,LEN(LEFT(G2,FIND(".",G2,1)+2)),16),LEN(LEFT(MID(G2,LEN(LEFT(G2,FIND(".",G2,1)+2)),16),FIND(".",MID(G2,LEN(LEFT(G2,FIND(".",G2,1)+2)),16))+2))+1,9))d:/1.png

libo5563

d:/1.png

IVANTING

在WORD里面查找替换不就好了吗？？

ljf8825

分列方法的公式，如A1开始，A列放置数据，空两列（b列c列），在d1输入以下公式，右拉，下拉
=MID(SUBSTITUTE($A1,B1&C1,""),1,FIND(".",SUBSTITUTE($A1,B1&C1,""),1)+2)