单元格内部分条件相乘

maxmin168

limonet 发表于 2024-4-8 10:52
Sub limonet()
    Dim i%, j%, Ms As Object, S$
    With CreateObject("vbscript.regexp")

老师，能不能修改一下，最后的是纯数字的才乘进去，现在发现比如最后是 -K03 的，把03乘了进去，但K03是整体显然不能作为数量了。

limonet

maxmin168 发表于 2024-4-18 17:24
老师，能不能修改一下，最后的是纯数字的才乘进去，现在发现比如最后是 -K03 的，把03乘了进去，但K03是 ...

有新附件吗？

cnmlgb9998

用PQ解决这种问题，难道不香么？？？？？？？？？？？


还要什么 VBA？ 还要什么烧脑的函数？ 还要什么 熊猫？？？？？

maxmin168

limonet 发表于 2024-4-18 19:03
有新附件吗？

表格.rar (6.47 KB, 下载次数: 2)

2024-4-18 19:33 上传

点击文件名下载附件

maxmin168

cnmlgb9998 发表于 2024-4-18 19:24
用PQ解决这种问题，难道不香么？？？？？？？？？？？

谢谢，它只是一环，不是所有。

limonet

pattern没改，改了判断。

limonet

Sub limonet()
    Dim i%, j%, Ms As Object, S$
    With CreateObject("vbscript.regexp")
        .Pattern = "(\d)(.*?)(-)?(\d+)?(/)"
        .Global = True
        For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
            Set Ms = .Execute(Cells(i, "A"))
            For j = 0 To Ms.Count - 1
                If Ms(j) Like "[0-9]*-[0-9]/" Or Ms(j) Like "[0-9]*-[0-9][0-9]/" Then
                    S = S & Evaluate(.Replace(Ms(j), "$1*$4")) & .Replace(Ms(j), "$2$5")
                Else
                    S = S & Ms(j)
                End If
            Next j
            Cells(i, "B") = S: S = ""
        Next i
    End With
End Sub

cnmlgb9998

结尾是 ０开头的数字 ，也不会参与计算。

limonet

用这个，普适性更好，03前面没有字母也适配。
Sub limonet()
    Dim i%, j%, Ms As Object, S$
    With CreateObject("vbscript.regexp")
        .Pattern = "(\d)(.*?)(-)?(\d+)?(/)"
        .Global = True
        For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
            Set Ms = .Execute(Cells(i, "A"))
            For j = 0 To Ms.Count - 1
                If Ms(j) Like "[0-9]*-[0-9]/" Or Ms(j) Like "[0-9]*-[1-9][0-9]/" Then
                    S = S & Evaluate(.Replace(Ms(j), "$1*$4")) & .Replace(Ms(j), "$2$5")
                Else
                    S = S & Ms(j)
                End If
            Next j
            Cells(i, "B") = S: S = ""
        Next i
    End With
End Sub