想了很久，还是没想到解决方案。。。

anywayv

请教大神们一个问题，想了很久一直想不到怎么解决。。。。附件有一份员工休假类型表，里面有各种各样的放假类型，比如说普通休假，病假，事假，婚假，产假等等
现在想根据B列的信息，把里面括号里的天数抽取出来，想了半天想不到怎么做，
试过用find+mid提取字段，结果发现有些放假时间是半天的很难提取，比方说2.5天婚假，用find+mid的话只能提取2
这个问题我一开始着手的时候以为很简单，结果敲的时候发现问题很大，特意前来请教论坛的前辈们，是否能有解决思路？

xiangbaoan

Option Explicit

Sub test() '适合VBA，仅供参考
  Dim ar, d As Object, i&, j&, k&, s$, t
  Set d = CreateObject("Scripting.Dictionary")
  With Range("A1").CurrentRegion
    .Offset(1, 2).ClearContents
    ar = .Value
  End With
  For j = 3 To UBound(ar, 2)
    If Len(ar(1, j)) Then d(ar(1, j)) = j
  Next
  For i = 2 To UBound(ar)
    s = ar(i, 2)
    If InStr(s, ";") Then
      t = Split(s, ";")
      For j = LBound(t) To UBound(t)
        k = InStrRev(t(j), "(")
        If d.Exists(Left(t(j), k - 1)) Then ar(i, d(Left(t(j), k - 1))) = Val(Mid(t(j), k + 1))
      Next
    Else
      k = InStrRev(s, "(")
      If d.Exists(Left(s, k - 1)) Then ar(i, d(Left(s, k - 1))) = Val(Mid(s, k + 1))
    End If
  Next
  Range("A1").CurrentRegion = ar
  Set d = Nothing
End Sub

xiangbaoan

休假类型.rar (21.32 KB, 下载次数: 8)

2021-2-3 08:47 上传

点击文件名下载附件

lhm0926

c2=IFERROR(--MID($B2,FIND("(",$B2,FIND(C$1,$B2))+LEN(C$1),FIND(")",$B2,FIND(C$1,$B2)+LEN(C$1))-FIND("(",$B2,FIND(C$1,$B2)+LEN(C$1))-1),"")

A1233515

附件供参考

A1233515

具体原理和2楼差不多

anywayv

xiangbaoan 发表于 2021-2-3 08:45
Option Explicit

Sub test() '适合VBA，仅供参考

感谢前辈！！！太给力了

sobili

用PQ做的，希望符合楼主的需求。 休假类型.rar (21.35 KB, 下载次数: 2)

2021-2-3 12:39 上传

点击文件名下载附件

qwer401245

=IFERROR(MID($B2,FIND(C$1,$B2)+LEN(C$1)+1,1),"")