运行遍历所有工作表的宏，只有一个例外

Question

我正在尝试编写一个宏来选择特定列中包含文本的任何行（不管是什么文本），然后将其粘贴到摘要中 sheet，这需要循环遍历所有sheets 在工作簿栏中的摘要 sheet。但是我在让它工作时遇到问题，我不断得到 'Compile Error: Method or Data Member not Found'，我需要宏到运行通过所有 sheets 而不管名称，因为 sheets 最终是存档并添加了新的。

我现在已经将宏查找带有文本的单元格的方式更改为以下内容，我不知道这是否会改变一些事情：

子智能复制()

Dim s1 As Worksheet, s2 As Worksheet
Dim N As Long, i As Long, j As Long
Set s1 = Sheets("Customer 1")
Set s2 = Sheets("Action Summary")
N = s1.Cells(Rows.Count, "C").End(xlUp).Row
j = 2
For i = 6 To N
    If s1.Cells(i, "C").Value = "" Then
    Else
        s1.Cells(i, "C").EntireRow.Copy s2.Cells(j, 1)
        j = j + 1
    End If
Next i

结束子

我是新手，可能完全错了，但如有任何帮助，我们将不胜感激。

Answer 1

第一个STOP using .Select

其次，这应该基于您过滤和复制特定行的标准。您可能需要调整过滤器或复制的行，但此循环会起作用。

Sub TestIt()

Dim wsheet As Worksheet

For i = 1 To ThisWorkbook.Worksheets.Count
    If ThisWorkbook.Worksheets(i).Name <> "Action Summary" Then 'And ThisWorkbook.Worksheets(i).Name <> "Another Exception" And ...
        Set wsheet = ThisWorkbook.Worksheets(i)
        For j = 6 to wsheet.Range("A" & Rows.Count).End(xlUp).Row
            If Not wsheet.Range("C" & j).Value = "" Then
                wsheet.Range("C" & j).EntireRow.Copy
                Sheets("Action Summary").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
            End If
        Next j
    End If
Next i

End Sub

运行遍历所有工作表的宏，只有一个例外

Macro to Run Through All Worksheets with One Exception

excel

vba

运行 遍历所有工作表的宏，只有一个例外

Macro to Run Through All Worksheets with One Exception

excel

vba

运行遍历所有工作表的宏，只有一个例外