VBAのシートの内容に基づいて複数のシートを1枚のシートにコピー

-2

50枚以上のExcelブックがあります。「Seasoned Passthrough OAS」を含むすべてのシートをコピーし、名前が「BC-Summary」のシートに貼り付ける必要があります。どうすればVBAでこれを達成できますか？VBAのシートの内容に基づいて複数のシートを1枚のシートにコピー

出典

2017-05-01 Zuodi Na

ようこそStackOverflow。これは無料のコード作成サービスではありませんのでご注意ください。しかし、私たちは、仲間のプログラマー（そして志望者）が自分のコードを書くのを助けることを熱望しています。 [良い質問をするにはどうすればよいですか]（http://stackoverflow.com/help/how-to-ask）のヘルプトピックをお読みください。また、ツアー中に（http://stackoverflow.com/tour）、バッジを獲得することもできます。その後、達成したいタスクを完了するために、これまでに書いたVBAコードで質問を更新してください。私たちはあなたを待っています。あなたのコード*を完成させるのに役立ちます。 – Ralph

私はちょうどa2-z100を使用したので、これはあなたが要約にコピーしたいと思うものが何であるか分かりません。

Sub test() 

Dim ws As Worksheet 

For Each ws In ActiveWorkbook.Worksheets 
If ws.Name <> "BC-Summary" Then 
    Set cFind = ws.Cells.Find(What:="Seasoned Passthrough OAS", After:=ws.Range("A1"), LookIn:= _ 
       xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
       xlNext, MatchCase:=False, SearchFormat:=False) 

    If Not cFind Is Nothing Then 

     ws.Range("A2:Z100").Copy 
     Sheets("BC-Summary").Range("A" & Sheets("BC-Summary").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues 

    End If 

End If 

Next ws 

End Sub

出典

2017-05-01 20:43:15 acvbasql

VBAのシートの内容に基づいて複数のシートを1枚のシートにコピー

答えて

関連する問題