macros循环遍历工作簿中的所有工作表，testing单元格是否具有特定值。 如果是，则复制要粘贴的某些数据

我目前正在进行一个需要以下方面的项目：

循环遍历工作簿中的所有工作表，如果单元格A1的值等于XXYY，则select第7行ctrl down直到内容结束，然后复制

将合并的工作表中第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