数枚のExcelファイル「file1」があります。多くの列を持つ 1 つのシート "sheet1" だけに関心があり、そのシート内の特定の名前を持ついくつかの列にのみ関心があります (Excel シートの最初の行には変数の名前が含まれています)。特定の文字列セット (例: 10 個の変数名) に一致する (等しい) 列を見つけ、それらの列のすべての行をコピーして、新しい Excel ファイル "file2" に貼り付けます。2枚目のExcelファイルもスクリプトで自動生成したいです(この2枚目のExcelファイルは1シートしかありません。)
このためにいくつかの VBA スクリプトを書き始めましたが (少し検索して学んだだけなので、VBA に詳しくありません)、いくつかのエラーが発生していました。私の最初の質問は、そのようなタスクを実行するための最良のツールは何か、そしてそれをどのように実行するかです。私はあなたの助けに感謝します。
これは、列番号と #rows を知っている場合に機能する非常に単純なコードです (ただし、両方が変更されるため、文字列で作業したいのです)
Sub ExtractData()
Filename = "OriginalFile"
Workbooks(Filename).Sheets("sheet2").Range("K1:K206").Copy Range("A1:A206")
Workbooks(Filename).Sheets("sheet2").Range("CF1:CF206").Copy Range("B1:B206")
Workbooks(Filename).Sheets("sheet2").Range("BRG1:BRG206").Copy Range("C1:C206")
Workbooks(Filename).Sheets("sheet2").Range("ESM1:ESN206").Copy Range("D1:E206")
Workbooks(Filename).Sheets("sheet2").Range("EWY1:EWZ206").Copy Range("F1:G206")
End Sub