[已解决]如何取出数值及字母 用函数可以取吗

云影

如何取出数值及字母

最佳答案

月排行榜 / 总排行榜

hongqiqqq

2012-12-31 16:18

云影 发表于 2012-12-31 16:17
只要能分开就行

数值也是只要能提出来就行吗？？
呵呵 ，那就好做了

跳转到最佳答案楼层

qigengzier

Function TIQU(RNG, FLAG)
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
If FLAG = 1 Then
.Pattern = "[^0-9]+"
Else
.Pattern = "[0-9]+"
End If
If .TEST(RNG) Then
For Each I In .Execute(RNG)
TIQU = TIQU & I
Next
End If
End With
End Function

qigengzier

=TIQU($A2,COLUMN(A1))
右拉下拉

rebornxldeng

此类问题直接用正则表达式可以轻松解决.
第二楼已经给出了实现该功能的代码了.

云影

qigengzier 发表于 2012-12-31 14:19
=TIQU($A2,COLUMN(A1))
右拉下拉

用函数，不用VBA可以取出吗

hongqiqqq

云影 发表于 2012-12-31 14:54
用函数，不用VBA可以取出吗

请问：提取的字母有顺序限制吗？？

云影

hongqiqqq 发表于 2012-12-31 16:14
请问：提取的字母有顺序限制吗？？

只要能分开就行            

hongqiqqq

云影 发表于 2012-12-31 16:17
只要能分开就行

数值也是只要能提出来就行吗？？
呵呵 ，那就好做了

云影

hongqiqqq 发表于 2012-12-31 16:18
数值也是只要能提出来就行吗？？
呵呵 ，那就好做了

也可以但不能倒序或多0

hongqiqqq

云影 发表于 2012-12-31 16:29
也可以但不能倒序或多0

先看看结果是不是您需要的
可能有点儿费事，第二个有点儿取巧