根据VBA中工作表的内容将多个工作表复制到一个工作表中

-2

我有一个包含超过50个工作表的Excel工作簿。我需要复制每张包含“经验丰富的Passthrough OAS”的纸张并将其粘贴到名称为“BC-Summary”的纸张上。我如何通过VBA实现这一目标？根据VBA中工作表的内容将多个工作表复制到一个工作表中

来源

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中工作表的内容将多个工作表复制到一个工作表中

回答

相关问题