求助，去掉单位格第一个汉字前的符号

yjwdjfqb · 发表于 2019-8-17 09:16

求助，去掉单位格第一个汉字前的符号
如：
，，；。；。2015报表，2016报表，2018年报表。
通知公式得到的结果是：
2015报表，2016报表，2018年报表。

请老师们帮写个公式，谢谢老师们了！

solextrade · 发表于 2019-8-17 09:22

=MID(A1,FIND(2,A1),99)

xhms · 发表于 2019-8-17 09:28

楼主试下公式=mid(a1,find("报表",a1)-5,99)

gadxjyang · 发表于 2019-8-17 09:28

=REPLACEB(A1,1,SEARCHB("?",A1)-1,"")

tjshenjian · 发表于 2019-8-17 09:45

=MIDB(A1,SEARCHB("?",A1),99)

复制代码

yjwdjfqb · 发表于 2019-8-17 09:48

谢谢各位老师了，不好意思，刚才表述有问题，我上传个附件，请老师们帮看看，谢谢老师们了！

yjwdjfqb · 发表于 2019-8-17 09:49

这个附件上，有三行，没有得到正确结果，请老师们，帮看下，谢谢老师们了！

Book1.rar (2.18 KB, 下载次数: 23)

准提部林 · 发表于 2019-8-17 10:14

數組公式:
=MID(A2,MATCH(1=1,MID(A2&9,ROW($1:$99),1)>="0",),99)

yjwdjfqb · 发表于 2019-8-17 10:48

准提部林发表于 2019-8-17 10:14
數組公式:
=MID(A2,MATCH(1=1,MID(A2&9,ROW($1:$99),1)>="0",),99)

非常感谢老师，这个真的太强大了！

422566739 · 发表于 2019-8-17 11:05

本帖最后由 422566739 于 2019-8-17 11:10 编辑

添加一个正则函数
Public Function vbaRegExp(ByVal s, patt, Optional ByVal newText = "newTextfalse")
Dim arr()
Set reg = CreateObject("VBScript.RegExp")
With reg
  .Global = True
  .IgnoreCase = True
  .Pattern = "" & patt & ""

  If newText = "newTextfalse" Then
Set Mac = .Execute(s)
ReDim arr(1 To Mac.Count)
n = 0
For Each i In Mac
   n = n + 1
   arr(n) = i
Next i
vbaRegExp = arr
  Else
Let res = .Replace(s, newText)
vbaRegExp = res
  End If
End With

End Function

		自动登录	找回密码
密码			免费注册

[求助] 求助，去掉单位格第一个汉字前的符号

评分

评分

评分

评分