Excel从如何右开始提取字符
如图所示,一列数据,下面还有“100把”等,所有的单位都是一个字,数量有个位数,十位数、百位数都有。如何使用函数提取两列分别为“数量”和“单位”,单位很好提取,使用rig...
如图所示,一列数据,下面还有“100把”等,所有的单位都是一个字,数量有个位数,十位数、百位数都有。
如何使用函数提取两列分别为“数量”和“单位”,单位很好提取,使用right函数。关键是“数量”呢?我第一时间想到“mid”函数,但这个是从左开始提取的!如何从右边第二个字符开始提取所有数字? 展开
如何使用函数提取两列分别为“数量”和“单位”,单位很好提取,使用right函数。关键是“数量”呢?我第一时间想到“mid”函数,但这个是从左开始提取的!如何从右边第二个字符开始提取所有数字? 展开
展开全部
Sub 提取字符()
Dim reg As Object
Dim arr(1 To 2), brr()
Set reg = CreateObject("vbscript.regexp")
r = [A65536].End(xlUp).Row
With reg
.Global = False
.Pattern = "[\u4E00-\u9FA5]"
For i = 1 To r
Set mc = reg.Execute(Range("A" & i))
For Each m In mc
ReDim Preserve brr(1 To i)
arr(1) = m.firstindex
brr(i) = Left(Range("A" & i), arr(1))
Next
Next
End With
[b1].Resize(r, 1) = Application.Transpose(brr)
Set reg = Nothing
End Sub
前面的数值带小数点,后面的中文任意个数都可以
Dim reg As Object
Dim arr(1 To 2), brr()
Set reg = CreateObject("vbscript.regexp")
r = [A65536].End(xlUp).Row
With reg
.Global = False
.Pattern = "[\u4E00-\u9FA5]"
For i = 1 To r
Set mc = reg.Execute(Range("A" & i))
For Each m In mc
ReDim Preserve brr(1 To i)
arr(1) = m.firstindex
brr(i) = Left(Range("A" & i), arr(1))
Next
Next
End With
[b1].Resize(r, 1) = Application.Transpose(brr)
Set reg = Nothing
End Sub
前面的数值带小数点,后面的中文任意个数都可以
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=left(a1,len(a1)-1)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
A B C
100个 100 个
=SUBSTITUTE(A2,C2,"") =RIGHT(A2,1)
先用right函数赋予C列值,然后再用公式SUBSTITUTE赋予B列值
100个 100 个
=SUBSTITUTE(A2,C2,"") =RIGHT(A2,1)
先用right函数赋予C列值,然后再用公式SUBSTITUTE赋予B列值
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询