[已解决]如何快速截取想要的部分内容

zas76

如何快速截取想要的部分内容

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2016-4-30 14:13

zas76 发表于 2016-4-30 14:10
为什么不出结果呀？

看下是不是這個意思

跳转到最佳答案楼层

心正意诚身修

=MID(C2,FIND("_",C2)+1,FIND("部",C2)-FIND("_",C2))
=MID(C2,FIND("司",C2)+1,9)

zas76

心正意诚身修 发表于 2016-4-30 13:40
=MID(C2,FIND("_",C2)+1,FIND("部",C2)-FIND("_",C2))
=MID(C2,FIND("司",C2)+1,9)

为什么不出结果呀？

心正意诚身修

zas76 发表于 2016-4-30 14:10
为什么不出结果呀？

看下是不是這個意思

zas76

心正意诚身修 发表于 2016-4-30 14:13
看下是不是這個意思

如果要截取其中的公司名称该如何设置公式？

心正意诚身修

zas76 发表于 2016-5-1 14:04
如果要截取其中的公司名称该如何设置公式？

=MID(C2,FIND("_",C2,15)+1,FIND("_",C2,25)-FIND("_",C2,15)-1)

datongye

Sub 截取部分内容()
Set reg = CreateObject("vbscript.regexp")
With reg
    .Global = True
     .Pattern = "_([一-龡]+部).+?(_\d+)"
End With
With Sheets(1)
    myrow = .Cells(65536, 3).End(xlUp).Row
    .Cells(2, 6).Resize(myrow, 2).ClearContents
    For i = 2 To myrow
       ss = .Cells(i, 3)
       Set mm = reg.Execute(ss)
       For Each qq In mm
            For j = 0 To qq.submatches.Count - 1
                If qq.submatches(j) <> "" Then
                   .Cells(i, j + 6) = qq.submatches(j)
                End If
            Next j
       Next
    Next i
End With
Set reg = Nothing
End Sub

zas76

心正意诚身修 发表于 2016-5-1 15:33
=MID(C2,FIND("_",C2,15)+1,FIND("_",C2,25)-FIND("_",C2,15)-1)

成了，非常感谢