質問: 0 then '行の削除 columns(columncount).delete end if next end sub
回答: こんばんは! あまりお役に立てないかもしれませんが、 お示しのコードでちゃんと動作するのであれば・・・ 画面更新を止めてみてはどうでしょうか? >for columncount = ・・・ の行の前に >application.screenupdating = false を追加、 >next の後に >application.screenupdating = true を追加。 この程度しか思いつきませんが、時間短縮にならなかったらごめんなさいね。m(_ _)m