2017-06-27 20 views
-1

私はこの問題についていくつかの解決策を試しましたが、まだ問題を発見しています。私は各部分がT1と呼ばれる280個のタブで構成され、ドキュメント、1と呼ばれるパート1と他の部2を2優れている :等の問題の説明特定の列を別のExcelシートに貼り付け、同じ名前のシートごとに繰り返す方法はありますか?

VBAへの私の経験も非常に限られているが、私は機能を理解します-T280。ドキュメントは同一ですが、各ドキュメントの半分だけが処理され、統合する必要があります。

VBAを使用してパート2からT番号に対応するパート1(たとえばパート2のT20のAZからCIへのパート1のT20のAZからCIへの貼り付けが必要) 。

上記を管理することができれば、この機能を5つの部分に分けて拡張したいと考えています。 (これらにも参照を追加する方法と範囲関数を指定する方法を知りたいだけです)。リピータ機能でこれを行う方が簡単ですか?

答えて

0
for each worksheet in part_2 
    with worksheet 
     .range(.columns(52), .columns(87)).copy _ 
       Destination := part_1.worksheets(worksheet.name).columns(52) 
    end with 
next worksheet 

part_2のすべてのワークシートを繰り返し、必要な列をコピーしてpart_1に貼り付けます。

関連する問題