07/06/26 04:00:51
>>235
Range("D1").Resize(Cells(Rows.Count, "A").End(xlUp).Row).Formula = _
"=VLOOKUP(A1,B$1:C$" & Cells(Rows.Count, "C").End(xlUp).Row & ",2,FALSE)"
>>244
>何も操作できない状態になってしまい、タスクマネージャで強制終了させなければならなくなります。
イミディエイトウィンドに
Application.ScreenUpdating = True
で、エンターキー