提取文件名中的批准人数

APPLE123

提取文件名中的批准人数



1、为便于统计审批人数，希望从B列的文件名称中提取提取审批人数、审批日期和文件名，提取结果如：C、D、E列
2、提取文件名称中包含“批准”字样的相关信息，如果文件名称中包含“公示”字样，则无需提取
3、希望vba一键获取，请老师帮忙看看，谢谢！

无关岁月

提取文件名中的批准人数.7z (11 KB, 下载次数: 12)

2024-1-17 21:47 上传

点击文件名下载附件

yynrzwh

Sub test()

Sheet1.UsedRange.Offset(1, 2) = ""
arr = Range("a1").CurrentRegion
    For i = 2 To UBound(arr)
        s = arr(i, 2)
        If InStr(s, "批准") > 0 And InStr(s, "公示") = 0 Then
            sp = Split(s, "通知")
            arr(i, 3) = Split(Split(s, "等")(1), "人")(0)
            arr(i, 4) = sp(1)
            arr(i, 5) = sp(0) & "通知"
        End If
    Next i
Range("a1").CurrentRegion = arr
End Sub

cjc209

function test(){
        var arr=maxArray_Z("b2");
        brr=arr.map((r,i,brr)=>String(r).match(/(?<=.*批准.*)\d+(?=人)/g)).flat().transpose_Z();
        brr.toRange_Z("c2")
}

cjc209

超级简单               

那时雨

练习，进步……

saghj

APPLE123

无关岁月 发表于 2024-1-17 21:48

谢谢老师帮助，真是这样的。

APPLE123

yynrzwh 发表于 2024-1-17 22:02
Sub test()

Sheet1.UsedRange.Offset(1, 2) = ""

谢谢老师帮助，Split也可如此用，学习了

APPLE123

那时雨 发表于 2024-1-17 22:38
练习，进步……

谢谢老师！请教一下
如何理解
If IsNumeric(str) Then
    brr(r, 1) = brr(r, 1) & str
End If