[已解决]如何抽取字符串6-00056789后面组成的数字

向前650809

各位网友好,现有一列有规律的字符串，都是形如6-00056789的字符串。现想通过代码，把“6－”去掉，也把左面的0去掉，得到后面的数字。请问代码如何写出，请指导。谢谢

最佳答案

月排行榜 / 总排行榜

baksy

2015-2-28 04:21

=MID(A1,3,9)/1

跳转到最佳答案楼层

L50814026

1. =VALUE(RIGHT(A1,8))

复制代码

冥王

方法一：用公式即可，假如数据在A1

1. =RIGHT(A1,8)/1

复制代码

公式下拉

方法二：选择数据所在列/行，Ctrl+H 查找  6- 替换为 空

雪舞子

1. Sub test()
   
2.     Dim arr, x&
   
3.     arr = "6-00056789"
   
4.     x = Val(Split(arr, "-")(1))
   
5.     MsgBox x
   
6. End Sub

复制代码

baksy

=MID(A1,3,9)/1

dsmch

假如数据在A列

1. Sub Macro1()
   
2. Dim arr, i&
   
3. [b:b] = ""
   
4. arr = Range("a1").CurrentRegion
   
5. With CreateObject("vbscript.regexp")
   
6.     .Pattern = "^6-0*"
   
7.     .Global = True
   
8.     For i = 1 To UBound(arr)
   
9.        arr(i, 1) = .Replace(arr(i, 1), "")
   
10.     Next
    
11. End With
    
12. Range("b1").Resize(UBound(arr)) = arr
    
13. End Sub

复制代码