Como copiar linhas de várias folhas, com base em critérios específicos, para uma nova folha?

Imagine que tem um livro com três folhas com a mesma formatação, tal como ilustrado na imagem abaixo. Pretende copiar todas as linhas dessas folhas cuja coluna C contenha o texto «Completed» para uma nova planilha. Como pode resolver este problema de forma rápida e fácil, sem ter de copiar e colar manualmente cada linha?

Copiar linhas de várias folhas com base em critérios para uma nova folha com código VBA

---

Copiar linhas de várias folhas com base em critérios para uma nova folha com código VBA

O código VBA seguinte permite-lhe copiar linhas específicas de todas as folhas do livro, com base numa determinada condição, para uma nova folha. Siga os passos abaixo:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na janela do módulo.

Código VBA: Copiar linhas de várias folhas com base em critérios para uma nova folha

Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
    xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
    If xWs.Name <> xStr Then
        Set xRg = xWs.Range("C:C")
        Set xRg = Intersect(xRg, xWs.UsedRange)
        For Each xRRg In xRg
            If xRRg.Value = xRStr Then
               xRRg.EntireRow.Copy
               xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
               xC = xC + 1
            End If
        Next xRRg
    End If
Next xWs
Application.DisplayAlerts = True
End Sub

Nota: No código acima:

• O texto «Completed» neste xRStr = «Completed»script indica a condição específica com base na qual pretende copiar as linhas;
• C:C neste Set xRg = xWs.Range(«C:C») script indica a coluna onde se encontra a condição.

3. Em seguida, prima a tecla F5 para executar este código e todas as linhas que cumprem a condição específica serão copiadas e coladas numa nova planilha com o nome Kutools para Excel, no livro de trabalho atual. Veja a imagem:

---

---

Mais artigos relacionados sobre extrair ou copiar dados: