宏循環遍歷工作簿中的所有工作表，測試單元格是否具有特定值。如果是的話，複製特定數據粘貼

Question

我目前的工作，需要以下項目：

通過在工作簿中的所有工作表循環，如果單元格A1的值等於XXYY然後選擇行7 CTRL，直到結束內容然後複製

整合所有的數據複製到一個工作表中一行從10在合併工作

Answer 1

開始嘗試...

Sub Macro1() 
Worksheets.Add Before:=Sheets(1) 
ActiveSheet.Name = "Consolidate" 
For i = 2 To Worksheets.Count 
Sheets(i).Select 

If Sheets(i).Range("A1").Value Like "*XXYY*" Then 
    Sheets(i).Rows("7:7").Select 
    Sheets(i).Tab.Color = 5287936 
    Sheets(i).Range(Selection, Sheets(i).Range("A" & Rows.Count).End(xlUp)).Select 
    Selection.Copy Destination:=Sheets("Consolidate").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 
End If 
Next i 
Sheets("Consolidate").Select 
Sheets("Consolidate").Rows("2:9").Insert 
End Sub