根據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中工作表的內容將多個工作表複製到一個工作表中

回答

相關問題