質問: 0 To UBound(抽出列) データ範囲.Columns(抽出列(i)).Copy Sheets("抽出").Range("A1").Offset(0, i) Next i End Sub
回答: モノは考えよう。プログラムにはいろいろなアプローチが可能です。 まるごと数式関数の入ったシートを新しいしーとへコピペして、いらぬ列を丸ごと列ごと消せば同じ結果にたどり着きます。 そしてエクセルにとってずっと簡単で早い動作のプログラムになるでしょう。