質問: xlCalculationAutomatic End With End Sub ``` ### 試したこと 変数をi,jに分けて、ループ処理のパターンを2種類にしてみました。 ### 補足情報(FW/ツールのバージョンなど) Excel 2010を使用しています。
回答: 以下のように修正しました。 ``` With データシート Dim y As Long, 該当行 As Long, 該当列 As Long Dim 検索値 As String For y = 8 To 7000 該当行 = Application.WorksheetFunction.Match(検索シート.Cells(y, 7), .Range(.Cells(2, 2), .Cells(5670, 2)), 0) If 該当行 <> 0 Then On Error Resume Next 該当列 = .Range(.Cells(該当行 + 1, 26), .Cells(該当行 + 1, 71)).Find(what:=検索シート.Cells(y, 8), lookat:=xlWhole).Column ’該当行(↓)を検索した後に、該当の行から検索語を1列ずつ検索し(→)、値を返す。 End If Next y End With ```