- 245 名前：デフォルトの名無しさん mailto:sage [2007/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
で、エンターキー
