0

現在、Excelで複数のtxtファイルを開き、すべてのデータをフィルタリングして、必要なものだけをインポートするようにワークブックを設定しています。各インポートは、異なるExcelシート「1」、「2」、「3」、....から「31」(日)になります。

すべてのシートの列数は同じですが、行数が異なります。私がする必要があるのは、この同じワークブック内のすべてのシートを「すべて」のシートに結合することです。

ヘルプ?!

4

1 に答える 1

0

わかった!チャームのように機能します。私の最初のシートは「ALL」と呼ばれ、2番目のシートはセットアップと呼ばれ、「1」から「31」という名前のシートである、残りのシートにインポートするファイルの日付範囲を日単位でチェックします。このマクロでは、3番目のシート(シート「1」)は、ブックの最後のシートまで結合を開始するときです。列見出しのある最初の行以外のすべてをコピーします。

Dim J As Integer

On Error Resume Next

For J = 3 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A1000000").End(xlUp)(2)

Next

Sheets("ALL").Select
于 2013-01-25T14:56:31.450 に答える