３日前ぐらいから書いてたコード。 やっと動いてくれたよ！ Sub Search() Dim StartTime, StopTime As Variant Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet Dim n As Long, i As Long, m As Long Dim Term As String Dim o…