[已解决]麻烦帮我看看这个问题怎么解决

我心飞翔410

我表中的K0+000~K0+140.0  我想把这些乱的数据变规律  变为K0+000.00~K0+140.00  匝A K0+131.84～K0+223.71
  这种格式保留匝A  后面也变为匝A K0+000.00~K0+140.00

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-3 23:44

1. Sub 正则处理()
   
2.     Dim objRegExp As Object, item1
   
3.     Dim lLastrow&, i&
   
4.     Dim arr
   
5.     Dim strTemp$
   
6. 
   
7.     lLastrow = Cells(Rows.Count, 1).End(xlUp).Row
   
8.     arr = Range("c4:c" & lLastrow).Value
   
9. 
   
10. 
    
11.     If Not IsArray(arr) Then Exit Sub
    
12.     Set objRegExp = CreateObject("VBScript.regExp")
    
13.     With objRegExp
    
14.         .Global = True
    
15.         .Pattern = "\+(\d*\.?\d*)"
    
16.         For i = 1 To UBound(arr)
    
17.             strTemp = arr(i, 1)
    
18.             For Each item1 In .Execute(strTemp)
    
19.                 strTemp = Replace(strTemp, item1.Value, Format(Val(item1.submatches(0)), "+0.000"))
    
20.             Next
    
21.             arr(i, 1) = strTemp
    
22.         Next
    
23.     End With
    
24.     Set objRegExp = Nothing
    
25.     Application.ScreenUpdating = False
    
26.     Application.DisplayAlerts = False
    
27.     Application.EnableEvents = False
    
28.     Range("f4").Resize(UBound(arr)).Value = arr
    
29.     Columns("f").AutoFit
    
30.     Columns("f").HorizontalAlignment = xlLeft
    
31.     Application.ScreenUpdating = True
    
32.     Application.DisplayAlerts = True
    
33.     Application.EnableEvents = True
    
34.     MsgBox "ok"
    
35. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

结合现有数据，举例说明要达到的效果。

hwc2ycy

1. Sub 正则处理()
   
2.     Dim objRegExp As Object, item1
   
3.     Dim lLastrow&, i&
   
4.     Dim arr
   
5.     Dim strTemp$
   
6. 
   
7.     lLastrow = Cells(Rows.Count, 1).End(xlUp).Row
   
8.     arr = Range("c4:c" & lLastrow).Value
   
9. 
   
10. 
    
11.     If Not IsArray(arr) Then Exit Sub
    
12.     Set objRegExp = CreateObject("VBScript.regExp")
    
13.     With objRegExp
    
14.         .Global = True
    
15.         .Pattern = "\+(\d*\.?\d*)"
    
16.         For i = 1 To UBound(arr)
    
17.             strTemp = arr(i, 1)
    
18.             For Each item1 In .Execute(strTemp)
    
19.                 strTemp = Replace(strTemp, item1.Value, Format(Val(item1.submatches(0)), "+0.000"))
    
20.             Next
    
21.             arr(i, 1) = strTemp
    
22.         Next
    
23.     End With
    
24.     Set objRegExp = Nothing
    
25.     Application.ScreenUpdating = False
    
26.     Application.DisplayAlerts = False
    
27.     Application.EnableEvents = False
    
28.     Range("f4").Resize(UBound(arr)).Value = arr
    
29.     Columns("f").AutoFit
    
30.     Columns("f").HorizontalAlignment = xlLeft
    
31.     Application.ScreenUpdating = True
    
32.     Application.DisplayAlerts = True
    
33.     Application.EnableEvents = True
    
34.     MsgBox "ok"
    
35. End Sub

复制代码

hwc2ycy

结果在F列，你先看看对不对。

hwc2ycy

正则的替换暂时不太明白，用的REPLACE实现的。

我心飞翔410

hwc2ycy 发表于 2013-6-3 23:44

K0+000～K0+090变为K0+000.000～K0+090.000不是K0+0.000～K0+90.000

hwc2ycy

strTemp = Replace(strTemp, item1.Value, Format(Val(item1.submatches(0)), "+000.000"))

你这是不足三位补三位吧？

我心飞翔410

那么的帅 发表于 2013-6-3 23:28
结合现有数据，举例说明要达到的效果。

K0+000～K0+090变为K0+000.000～K0+090.000
匝A K0+000～K0+090变为匝A K0+000.000～K0+090.000

我心飞翔410

我心飞翔410 发表于 2013-6-4 21:30
K0+000～K0+090变为K0+000.000～K0+090.000
匝A K0+000～K0+090变为匝A K0+000.000～K0+090.000

班班 这个题能不能用添加啊 意思就是没小数的添加两位  有一位添加一位