VBA改良

下記ロジックだと、機能はするが数が多い場合、処理速度が遅く使えない。 高速に処理できるロジックを検討して欲しい。 Sub iii() Application.ScreenUpdating = False Workbooks("item - コピー.xlsm").Worksheets(1).Select m = Workbooks("item - コピー.xlsm").Worksheets(1).Cells(100000, 1).End(xlUp).Row c = Workbooks("item - コピー.xlsm").Worksheets(1).Range(Cells(2, 2), Cells(m, 33)) Workbooks("item - コピー.xlsm").Worksheets(2).Select n = Workbooks("item - コピー.xlsm").Worksheets(2).Cells(100000, 8).End(xlUp).Row For i = 2 To n a = Workbooks("item - コピー.xlsm").Worksheets(2).Cells(i, 8).Value Cells(i, 9) = Application.WorksheetFunction.VLookup(a, c, 7, False) Cells(i, 10) = Application.WorksheetFunction.VLookup(a, c, 31, False) Cells(i, 11) = Application.WorksheetFunction.VLookup(a, c, 15, False) Cells(i, 7) = "u" Next Application.ScreenUpdating = True End Sub