EXCELSQLバージョン 速度は、よくわからない。 ただ、閾値以上の配列を作成する処理が、SQLで代替できるので、保守性は高いと思う。 Sub SetData() ' 画面を初期化 Rows("1:19").Select Selection.Delete Shift:=xlUp ' 列の選択状態を解除 Sheet1.Range("A1…