通过VLookup提高macor效率?

时间:2017-11-10 20:03:09

标签: excel vba vlookup

我一直试图将功能性工作簿拼凑在一起,在我去的时候使用 VBA 代码。

我目前创建了一个,它会查看列中动态范围的值,并将它们转换为新值。

Sub ConvertWireSize()
Dim i As Long
Sheets("Circuits").Select
Range("H1").Select
For i = 1 To Rows.Count
    If Cells(i, 8).Value = 0.5 Then
        Cells(i, 8).Value = 20
    ElseIf Cells(i, 8).Value = 0.8 Then
        Cells(i, 8).Value = 18
    ElseIf Cells(i, 8).Value = 1 Then
        Cells(i, 8).Value = 16
    ElseIf Cells(i, 8).Value = 2 Then
        Cells(i, 8).Value = 14
    ElseIf Cells(i, 8).Value = 3 Then
        Cells(i, 8).Value = 12
    ElseIf Cells(i, 8).Value = 5 Then
        Cells(i, 8).Value = 10
    ElseIf Cells(i, 8).Value = 8 Then
        Cells(i, 8).Value = 8
    ElseIf Cells(i, 8).Value = 13 Then
        Cells(i, 8).Value = 6
    ElseIf Cells(i, 8).Value = 19 Then
        Cells(i, 8).Value = 4
      End If
Next i

MsgBox "Wire Size Has Been Converted From CSA to AWG."

Sheets("Main").Select

End Sub

这似乎是一种非常低效,缓慢的做事方式。 我一直试图拼凑一个使用VLookup的新宏,但是我做的研究越多,我就越困惑。

有人可以帮我指出正确的方向吗?

1 个答案:

答案 0 :(得分:1)

只要列H中的值延伸,就不要进入行1048576。使用Select Case清理您的IF。 Don't use Select

Sub ConvertWireSize()
    Dim i As Long
    with workSheets("Circuits")
        For i = 1 To .cells(.Rows.Count, "H").end(xlup).row
            select case .Cells(i, 8).Value2
                case  0.5
                    .Cells(i, 8).Value = 20
                case  0.8
                    .Cells(i, 8).Value = 18
                case  1
                    .Cells(i, 8).Value = 16
                ...
             end select
        Next i
    end with

    MsgBox "Wire Size Has Been Converted From CSA to AWG."

    workSheets("Main").Select   
End Sub

我无法轻易确定转换的线性模式,但您可以调整一些数学来进行每次转换。

如果你有超过几千个这样的转换,那么内存中的数组会显示效率明显提高。