Question

我目前正在开展一个需要以下项目的项目：

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

将所有复制的数据合并到一个工作表中，从合并工作表中的第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

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

1 个答案: