单元格内部分条件相乘

maxmin168

limonet 发表于 2024-4-8 13:35
no pic no true

一定要说还有啥不足，那就是把 -03（编号），也作为 -3（数量） 给相乘了。

清风竹-

maxmin168 发表于 2024-4-8 13:04
谢谢老师，我没有把例示举全，有些含有几个 - 的，只算最后那个 - 前的数字，有些有 - 但前面不是数字的 ...

请看附件。

maxmin168

清风竹- 发表于 2024-4-8 14:35
请看附件。

谢谢！评分没有可用分了。。。

limonet

maxmin168 发表于 2024-4-8 13:53
一定要说还有啥不足，那就是把 -03（编号），也作为 -3（数量） 给相乘了。

03没有*进去啊，前6*后3=18

maxmin168

limonet 发表于 2024-4-8 17:35
03没有*进去啊，前6*后3=18

是的，例举的图里是没有，但如果最后的是01~09就会乘进去，当然01~09虽然有时是编号，但广义上讲原本就是数字，乘进去了也正常。

limonet

你没有把示例举全，所以无法提前来处理。

李正旺2024

Sub 数据整理()
    Dim Reg1 As Object, i%, j%, Reg2 As Object, arr
    Set Reg1 = CreateObject("VBScript.regexp")
    Set Reg2 = CreateObject("VBScript.regexp")
        Reg1.Pattern = "\d+×" '规则
        Reg1.Global = True '搜索全部
        Reg2.Global = True '搜索全部
        For i = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
            arr = Split(Sheet1.Cells(i, 1), "/")
            Reg2.Pattern = "-\d+"
            For j = 1 To UBound(arr)
                Set a = Reg1.Execute(arr(j - 1)) '返回每一个符合条件的开始位置,长度和值
                Set b = Reg2.Execute(arr(j - 1))
                If Reg2.test(arr(j - 1)) Then
                   c = Val(Split(a(0), "×")(0))
                   d = Val(Split(b(0), "-")(1))
                   x = c * d
                   Y = Y & Reg1.Replace(arr(j - 1), x & "×") & "/"
                Else
                   Y = Y & arr(j - 1) & "/"
                End If
           Next
           Reg2.Pattern = "-\d+/"
           Sheet1.Cells(i, "B") = Reg2.Replace(Y, "/")
            Y = ""
        Next
End Sub

李正旺2024

Sub 数据整理()
    Dim Reg1 As Object, i%, j%, Reg2 As Object, arr
    Set Reg1 = CreateObject("VBScript.regexp")
    Set Reg2 = CreateObject("VBScript.regexp")
        Reg1.Pattern = "\d+×" '规则
        Reg1.Global = True '搜索全部
        Reg2.Global = True '搜索全部
        For i = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
            arr = Split(Sheet1.Cells(i, 1), "/")
            Reg2.Pattern = "-\d+"
            For j = 1 To UBound(arr)
                Set a = Reg1.Execute(arr(j - 1)) '返回每一个符合条件的开始位置,长度和值
                Set b = Reg2.Execute(arr(j - 1))
                If Reg2.test(arr(j - 1)) Then
                   c = Val(Split(a(0), "×")(0))
                   d = Val(Split(b(0), "-")(1))
                   x = c * d
                   Y = Y & Reg1.Replace(arr(j - 1), x & "×") & "/"
                Else
                   Y = Y & arr(j - 1) & "/"
                End If
           Next
           Reg2.Pattern = "-\d+/"
           Sheet1.Cells(i, "B") = Reg2.Replace(Y, "/")
            Y = ""
        Next
End Sub

李正旺2024

请参考,
如有帮到你，请支持鼓励。

今铭昔