包含字符串计算很慢

dgzwz1969

Sub 材料计算()
Dim i%
    For i = 4 To 938
        If Cells(i, 3) Like "*269M*" Then
            Cells(i, 7) = Cells(i, 6) * 85.54 + Cells(i, 4) * 22.5
        ElseIf Cells(i, 3) Like "*1603*" Then
            Cells(i, 7) = Cells(i, 6) * 80.34
        ElseIf Cells(i, 3) Like "*PB2*" Then
            Cells(i, 7) = Cells(i, 6) * 113.91 + Cells(i, 4) * 22.5
        ElseIf Cells(i, 3) Like "*R111*" Then
            Cells(i, 7) = Cells(i, 6) * 105.18 + Cells(i, 4) * 21.5
        ElseIf Cells(i, 3) Like "*1108*" Then
            Cells(i, 7) = Cells(i, 6) * 80.67
        ElseIf Cells(i, 3) Like "*477*" Or Cells(i, 3) Like "*21103*" Or Cells(i, 3) Like "*0659H" Then
            Cells(i, 7) = Cells(i, 6) * 91.08
        Else
            Cells(i, 7) = Cells(i, 6) * 49.30558
        End If
    Next i
End Sub

limonet

你嵌那么6、7层套肯定慢。

limonet

用Select Case，肯定快了。

dgzwz1969

limonet 发表于 2022-6-29 10:41
用Select Case，肯定快了。

怎样写

limonet

没有附件无法测试。