Excel 让VBA循环更快的想法？

我对下面的代码有问题（我只复制了相关部分）。代码运行良好，但速度太慢。基本上，代码将Examplesheet2中的数据与Examplesheet3中的数据进行比较，然后将其移动到4个不同的工作表中。该代码包括一个搜索函数和多个嵌套if。有很多“如果”条件的事实是无法回避的

有人知道如何改进代码以使其更快吗

Sub WorksFine()

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlManual

Dim lr1 As Long
Dim lr2 As Long
Dim x As Long, n As Integer, m As Integer, o As Integer
Dim Arr As Variant
Dim rng As Range, rng2 As Range, cl As Range, cl2 As Range



n = 20 'Start row 
m = 20 'Start row 
o = 20 'Start row 
p = 21 'Start row 

Select Case ThisWorkbook.Worksheets("Examplesheet1").Range("AI2").Value

    Case Is = "Example"


        'Define range from which to match from
        With Blad6
            lr1 = Worksheets("ExampleSheet2").Cells(.Rows.Count, 1).End(xlUp).Row
            Arr = Worksheets("ExampleSheet2").Range("A2:A" & lr1 + 1)

        End With


        'Define range from which to look from
        With Sheet2
            lr2 = Worksheets("Examplesheet3").Cells(.Rows.Count, 2).End(xlUp).Row
            Set rng = Worksheets("Examplesheet3").Range("H2:H" & lr2)
        End With

        With Blad6
        For x = 1 To UBound(Arr)
        Set cl = rng.Find(Arr(x, 1), LookIn:=xlValues)

            If Not cl Is Nothing Then
                If Worksheets("Examplesheet1").Cells(x + 1, 7) = cl.Offset(0, -4) And cl.Offset(0, -5) > Worksheets("Examplesheet1").Cells(x + 1, 3) Then
FoundFullMatch:
                    Worksheets("Outputsheet1").Cells(n, 2).Value = Worksheets("Examplesheet1").Cells(x + 1, 1)
                    Worksheets("Outputsheet1").Cells(n, 3).Value = Worksheets("Examplesheet1").Cells(x + 1, 2)
                    Worksheets("Outputsheet1").Cells(n, 4).Value = Worksheets("Examplesheet1").Cells(x + 1, 8)
                    Worksheets("Outputsheet1").Cells(n, 5).Value = Worksheets("Examplesheet1").Cells(x + 1, 3)
                    Worksheets("Outputsheet1").Cells(n, 6).Value = Worksheets("Examplesheet1").Cells(x + 1, 4)
                    Worksheets("Outputsheet1").Cells(n, 7) = cl.Offset(0, -5)
                    Worksheets("Outputsheet1").Cells(n, 8).Value = Worksheets("Examplesheet1").Cells(x + 1, 6)
                    Worksheets("Outputsheet1").Cells(n, 9).Value = Worksheets("Examplesheet1").Cells(x + 1, 5)
                    Worksheets("Outputsheet1").Cells(n, 10).Value = Worksheets("Examplesheet1").Cells(x + 1, 7)
                    Worksheets("Outputsheet1").Cells(n, 11) = cl.Offset(0, -4)
                    Worksheets("Outputsheet1").Cells(n, 12).Value = Worksheets("Outputsheet1").Cells(n, 10).Value - Worksheets("Outputsheet1").Cells(n, 11).Value
                    If Worksheets("Outputsheet1").Cells(n, 6) = "" Then
                        GoTo ErrorHandler
                        ElseIf DateValue(Worksheets("Outputsheet1").Cells(n, 6)) < DateValue(Worksheets("Outputsheet1").Cells(n, 7)) Then
                        Worksheets("Outputsheet1").Cells(n, 13).Value = Worksheets("Outputsheet1").Cells(n, 7) - Worksheets("Outputsheet1").Cells(n, 6)
                        Else
ErrorHandler:
                    End If
                    Worksheets("Outputsheet2").Cells(p, 3).Value = cl.Offset(0, -5)
                    Worksheets("Outputsheet2").Cells(p, 4).Value = cl.Offset(0, -4) 
                    Worksheets("Outputsheet2").Cells(p, 5).Value = cl.Offset(0, 0) 
                    Worksheets("Outputsheet2").Cells(p, 6).Value = cl.Offset(0, 3) 
                    Worksheets("Outputsheet2").Cells(p, 7).Value = "Text" 
                    p = p + 1
                    n = n + 1

                Else



                    If cl.Row < lr2 Then
                    clmem = 1
KeepLooking:
                    With Sheet2
                        lr2 = Worksheets("Examplesheet2").Cells(.Rows.Count, 2).End(xlUp).Row
                        Set rng2 = Worksheets("Examplesheet2").Range("H" & cl.Row & ":H" & lr2)
                    End With
                    Set cl = rng2.Find(Arr(x, 1), LookIn:=xlValues)
                    If Not cl Is Nothing Then
                        If Worksheets("Examplesheet1").Cells(x + 1, 7) = cl.Offset(0, -4) And cl.Offset(0, -5) > Worksheets("Examplesheet1").Cells(x + 1, 3) Then
                        GoTo FoundFullMatch
                        Else
                            If cl.Row < lr2 And cl.Row <> clmem Then
                            clmem = cl.Row
                            GoTo KeepLooking

                    Else

                        If Not cl Is Nothing Then

                            If Worksheets("Examplesheet1").Cells(x + 1, 7) <> cl.Offset(0, -4) And cl.Offset(0, -4) <> 0 And cl.Offset(0, -5) > Worksheets("Examplesheet1").Cells(x + 1, 3) Then
                                Worksheets("Outputsheet3").Cells(m, 2).Value = Worksheets("Examplesheet1").Cells(x + 1, 1)
                                Worksheets("Outputsheet3").Cells(m, 3).Value = Worksheets("Examplesheet1").Cells(x + 1, 2)
                                Worksheets("Outputsheet3").Cells(m, 4).Value = Worksheets("Examplesheet1").Cells(x + 1, 8)
                                Worksheets("Outputsheet3").Cells(m, 5).Value = Worksheets("Examplesheet1").Cells(x + 1, 3)
                                Worksheets("Outputsheet3").Cells(m, 6).Value = Worksheets("Examplesheet1").Cells(x + 1, 4)
                                Worksheets("Outputsheet3").Cells(m, 7) = cl.Offset(0, -5)
                                Worksheets("Outputsheet3").Cells(m, 8).Value = Worksheets("Examplesheet1").Cells(x + 1, 6)
                                Worksheets("Outputsheet3").Cells(m, 9).Value = Worksheets("Examplesheet1").Cells(x + 1, 5)
                                Worksheets("Outputsheet3").Cells(m, 10).Value = Worksheets("Examplesheet1").Cells(x + 1, 7)
                                Worksheets("Outputsheet3").Cells(m, 11) = cl.Offset(0, -4)
                                Worksheets("Outputsheet3").Cells(m, 12).Value = Worksheets("Outputsheet3").Cells(m, 10).Value - Worksheets("Outputsheet3").Cells(m, 11).Value
                                Worksheets("Outputsheet3").Cells(m, 14) = cl.Offset(0, -2)
                                Worksheets("Outputsheet3").Cells(m, 15) = cl
                                Worksheets("Outputsheet2").Cells(p, 3).Value = cl.Offset(0, -5) 
                                Worksheets("Outputsheet2").Cells(p, 4).Value = cl.Offset(0, -4) 
                                Worksheets("Outputsheet2").Cells(p, 5).Value = cl.Offset(0, 0) 
                                Worksheets("Outputsheet2").Cells(p, 6).Value = cl.Offset(0, 3) 
                                Worksheets("Outputsheet2").Cells(p, 7).Value = "Text" 
                                p = p + 1
                                m = m + 1

                                Else


                                Worksheets("Outputsheet4").Cells(o, 2).Value = Worksheets("Examplesheet1").Cells(x + 1, 1)
                                Worksheets("Outputsheet4").Cells(o, 3).Value = Worksheets("Examplesheet1").Cells(x + 1, 2)
                                Worksheets("Outputsheet4").Cells(o, 4).Value = Worksheets("Examplesheet1").Cells(x + 1, 8)
                                Worksheets("Outputsheet4").Cells(o, 5).Value = Worksheets("Examplesheet1").Cells(x + 1, 3)
                                Worksheets("Outputsheet4").Cells(o, 6).Value = Worksheets("Examplesheet1").Cells(x + 1, 4)
                                Worksheets("Outputsheet4").Cells(o, 8).Value = Worksheets("Examplesheet1").Cells(x + 1, 6)
                                Worksheets("Outputsheet4").Cells(o, 9).Value = Worksheets("Examplesheet1").Cells(x + 1, 5)
                                Worksheets("Outputsheet4").Cells(o, 10).Value = Worksheets("Examplesheet1").Cells(x + 1, 7)

                                o = o + 1

                                End If


                        Else

                         Worksheets("Outputsheet4").Cells(o, 2).Value = Worksheets("Examplesheet1").Cells(x + 1, 1)
                                Worksheets("Outputsheet4").Cells(o, 3).Value = Worksheets("Examplesheet1").Cells(x + 1, 2)
                                Worksheets("Outputsheet4").Cells(o, 4).Value = Worksheets("Examplesheet1").Cells(x + 1, 8)
                                Worksheets("Outputsheet4").Cells(o, 5).Value = Worksheets("Examplesheet1").Cells(x + 1, 3)
                                Worksheets("Outputsheet4").Cells(o, 6).Value = Worksheets("Examplesheet1").Cells(x + 1, 4)
                                Worksheets("Outputsheet4").Cells(o, 8).Value = Worksheets("Examplesheet1").Cells(x + 1, 6)
                                Worksheets("Outputsheet4").Cells(o, 9).Value = Worksheets("Examplesheet1").Cells(x + 1, 5)
                                Worksheets("Outputsheet4").Cells(o, 10).Value = Worksheets("Examplesheet1").Cells(x + 1, 7)

                                o = o + 1

                        End If
                        End If
                        End If
                        End If
                        End If
                        End If

                    Else

                     Worksheets("Outputsheet4").Cells(o, 2).Value = Worksheets("Examplesheet1").Cells(x + 1, 1)
                                Worksheets("Outputsheet4").Cells(o, 3).Value = Worksheets("Examplesheet1").Cells(x + 1, 2)
                                Worksheets("Outputsheet4").Cells(o, 4).Value = Worksheets("Examplesheet1").Cells(x + 1, 8)
                                Worksheets("Outputsheet4").Cells(o, 5).Value = Worksheets("Examplesheet1").Cells(x + 1, 3)
                                Worksheets("Outputsheet4").Cells(o, 6).Value = Worksheets("Examplesheet1").Cells(x + 1, 4)
                                Worksheets("Outputsheet4").Cells(o, 8).Value = Worksheets("Examplesheet1").Cells(x + 1, 6)
                                Worksheets("Outputsheet4").Cells(o, 9).Value = Worksheets("Examplesheet1").Cells(x + 1, 5)
                                Worksheets("Outputsheet4").Cells(o, 10).Value = Worksheets("Examplesheet1").Cells(x + 1, 7)

                    o = o + 1

                    End If

        Next

    End With

Sub-WorksFine（）
Application.ScreenUpdating=False
Application.EnableEvents=False
Application.Calculation=xlManual
将lr1调暗为等长
调暗lr2，长度相同
尺寸x为长，n为整数，m为整数，o为整数
作为变体的Dim-Arr
变暗rng As范围、rng2 As范围、cl As范围、cl2 As范围
n=20'起始行
m=20'起始行
o=20'起始行
p=21'起始行
选择案例ThisWorkbook.Worksheets（“Examplesheet1”）.Range（“AI2”）.Value
Case Is=“示例”
'定义要从中进行匹配的范围
用Blad6
lr1=工作表（“ExampleSheet2”）.单元格（.Rows.Count，1）.End（xlUp）.Row
Arr=工作表（“示例表2”）。范围（“A2:A”和lr1+1）
以
'定义要查看的范围
附页2
lr2=工作表（“Examplesheet3”）.单元格（.Rows.Count，2）.End（xlUp）.Row
设置rng=工作表（“示例表3”）。范围（“H2:H”和lr2）
以
用Blad6
对于x=1至UBound（Arr）
设置cl=rng.Find（Arr（x，1），LookIn:=xlValues）
如果不是，那么cl什么都不是
如果工作表（“示例表1”）.单元格（x+1,7）=cl.Offset（0，-4）和cl.Offset（0，-5）>工作表（“示例表1”）.单元格（x+1,3），则
FoundFullMatch：
工作表（“Outputsheet1”）。单元格（n，2）。值=工作表（“Examplesheet1”）。单元格（x+1，1）
工作表（“Outputsheet1”）。单元格（n，3）。值=工作表（“Examplesheet1”）。单元格（x+1，2）
工作表（“Outputsheet1”）。单元格（n，4）。值=工作表（“Examplesheet1”）。单元格（x+1，8）
工作表（“Outputsheet1”）。单元格（n，5）。值=工作表（“Examplesheet1”）。单元格（x+1，3）
工作表（“Outputsheet1”）。单元格（n，6）。值=工作表（“Examplesheet1”）。单元格（x+1，4）
工作表（“输出表1”）。单元格（n，7）=类别偏移量（0，-5）
工作表（“Outputsheet1”）。单元格（n，8）。值=工作表（“Examplesheet1”）。单元格（x+1，6）
工作表（“Outputsheet1”）。单元格（n，9）。值=工作表（“Examplesheet1”）。单元格（x+1，5）
工作表（“Outputsheet1”）。单元格（n，10）。值=工作表（“Examplesheet1”）。单元格（x+1，7）
工作表（“输出表1”）。单元格（n，11）=cl.偏移量（0，-4）
工作表（“Outputsheet1”）。单元格（n，12）。值=工作表（“Outputsheet1”）。单元格（n，10）。值-工作表（“Outputsheet1”）。单元格（n，11）。值
如果工作表（“输出表1”）。单元格（n，6）=“”，则
转到错误处理程序
ElseIf DateValue（工作表（“Outputsheet1”）.Cells（n，6））工作表（“示例表1”）.单元格（x+1,3），则
转到FoundFullMatch
其他的
如果cl.Row工作表（“示例表1”）.单元格（x+1,3），则
工作表（“输出表3”）。单元格（m，2）。值=工作表（“示例表1”）。单元格（x+1，1）
工作表（“Outputsheet3”）。单元格（m，3）。值=工作表（“Examplesheet1”）。单元格（x+1，2）
工作表（“输出表3”）。单元格（m，4）。值=工作表（“示例表1”）。单元格（x+1，8）
工作表（“输出表3”）。单元格（m，5）。值=工作表（“示例表1”）。单元格（x+1，3）
工作表（“输出表3”）。单元格（m，6）。值=工作表（“示例表1”）。单元格（x+1，4）
工作表（“输出表3”）。单元格（m，7）=cl.偏移量（0，-5）
工作表（“Outputsheet3”）。单元格（m，8）。值=工作表（“Examplesheet1”）。单元格（x+1，6）
工作表（“输出表3”）。单元格（m，9）。值=工作表（“示例表1”）。单元格（x+1，5）