excel - 複数の列のデータを複数のシートにエクスポートする

Question

一部の列データを個別のシートにエクスポートしてから、個別の ASCII テキスト ファイルにエクスポートしたいと考えています。特定のデータは示されているとおりで、最初の 2 つの列 (x、y 座標) とその後の個々の列をそれぞれ独自のシートにコピーしたいと考えています。

 x     y    Comp1   Comp2   Comp3   Comp4    …  Comp23
-40  -20    55.29   0       0       73       …  105.67
-40  -19.9  56.79   0       33      72       …  112.5
-40  -19.8  69.29   0       31      89       …  114
-40  -19.7  70.29   0       58.14   108      …  125
 …    …     …       …       …       …        …  …
 40   55    72.29   0       49      117      …  132

私はまだマクロの作成に取り組んでいるので、基本的には、次のようにシート全体で機能するように、記録されたマクロを反復の 1 つに適応させようとしています。

Sub CopyColData()
    ActiveCell.Range("A1:B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Comp1"
    Sheets("SUM").Select
    Application.CutCopyMode = False
    ActiveCell.Offset(0, 2).Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Comp1").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveSheet.Paste
End Sub 

理想的には、最初の 2 列の座標データを使用して列ごとに新しいワークシートを作成し、列のタイトルに従ってワークシートにラベルを付けてから、列のデータを 3 番目の列にコピーしたいと考えています。その後、別のマクロを使用して、複数のシートを個々の ASCII ファイルにエクスポートします。ありがとう！