' 画面更新を停止 Application.ScreenUpdating = False ' フィルター解除 リストシート.AutoFilterMode = False ' リストシートのB列の最終行を取得 最終行 = リストシート.Cells(Rows.Count, "B").End(xlUp).Row ' フィルターを設定 With リストシート.Rang…