Come copiare righe da più fogli di lavoro in un nuovo foglio in base a determinati criteri?

Si supponga di avere una cartella di lavoro con tre fogli formattati in modo identico, come mostrato nell’immagine seguente. Ora si desidera raccogliere in un nuovo foglio tutte le righe da questi fogli in cui la colonna C contiene il testo «Completed». Come risolvere questo problema in modo rapido e semplice, senza dover copiare e incollare manualmente ogni singola riga?

Copiare righe da più fogli di lavoro in base a criteri in un nuovo foglio con codice VBA

---

Copiare righe da più fogli di lavoro in base a criteri in un nuovo foglio con codice VBA

Il seguente codice VBA consente di copiare righe specifiche da tutti i fogli di lavoro della cartella, in base a una determinata condizione, in un nuovo foglio di lavoro. Procedere come segue:

1. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Fare clic su Inserisci > Modulo, quindi incollare il codice seguente nella finestra del modulo.

Codice VBA: Copiare righe da più fogli in base a criteri in un nuovo foglio

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: Nel codice riportato sopra:

• Il testo «Completed» in questo xRStr = «Completed»script indica la condizione specifica in base alla quale si desidera copiare le righe;
• C:C in questo Set xRg = xWs.Range(«C:C») script indica la colonna specifica in cui si trova la condizione.

3. Premere quindi il tasto F5per eseguire il codice. Tutte le righe corrispondenti alla condizione specificata verranno copiate e incollate in un nuovo foglio di lavoro denominato «Kutools per Excel» all’interno della cartella di lavoro corrente. Vedere l’immagine:

---

---

Altri articoli correlati sul recupero o la copia di dati: