提取指定数值

ytmpgght

在以下的几种文本结构下，如果将长 宽 高分别提取到指定单元格。
1，"BE双瓦彩印纸箱，制造尺寸:415*278*210(展开尺寸)"
2，"BE双瓦彩印纸箱，制造尺寸(展开尺寸): 415*278*212"
3，BC双瓦尺寸约270*230*270
4，"BC双瓦楞牛皮纸箱尺寸470*350*222"
5，单E瓦粘合式牛皮纸托盘，无印刷，尺寸（319*214*50）

liulang0808

可以拆分后提取，也可以使用正则
如果有问题，建议楼主上传模拟附件，

cnmlgb9998

Text.Split(\d+\*\d+\*\d+,"*")

cnmlgb9998

PQ !!!!!!!!!!!!!!!!!!!!!!

ytmpgght

liulang0808 发表于 2024-3-6 11:47
可以拆分后提取，也可以使用正则
如果有问题，建议楼主上传模拟附件，

老师您好，压缩包内是测试文件。
我自己弄的这个不但提取可能出错，而且面对上万行数据时运行速度花了近十分钟。

liulang0808

Sub 按钮15_Click()
    r = Cells(Rows.Count, 5).End(3).Row
    arr = [e1].Resize(r)
    ReDim brr(1 To UBound(arr), 1 To 3)
    With CreateObject("vbscript.regexp")
        .Pattern = "\d+\*\d+\*\d+"
        For j = 2 To UBound(arr)
            If .test(arr(j, 1)) Then
                crr = Split(.Execute(arr(j, 1))(0), "*")
                brr(j, 1) = crr(0)
                brr(j, 2) = crr(1)
                brr(j, 3) = crr(2)
            End If
        Next j
    End With
    [p1].Resize(UBound(arr), 3) = brr
End Sub

liulang0808

提取尺寸测试.zip (477.73 KB, 下载次数: 11)

2024-3-6 13:43 上传

点击文件名下载附件

ytmpgght

liulang0808 发表于 2024-3-6 13:43

看过老师的程序，我感到非常的震惊，当然有很多是羞愧，在论坛多年我还没有学成。
老师的程序简洁又高效！太赞了。

shiruiqiang

建议先处理数据，按照理论，这些应该也是的

ytmpgght

ytmpgght 发表于 2024-3-6 13:04
老师您好，压缩包内是测试文件。
我自己弄的这个不但提取可能出错，而且面对上万行数据时运行速度花了近 ...

我刚才不死心在自己的基础上改成数组处理的话。时间效率是够了。只是判断上还是不完美。