Kako kopirati vrstice z več delovnih listov na podlagi meril v nov list?
Recimo, da imate delovni zvezek s tremi delovnimi listi, ki imajo enako obliko kot spodnja slika zaslona. Zdaj želite kopirati vse vrstice s teh delovnih listov, stolpec C vsebuje besedilo »Dokončano«, v nov delovni list. Kako lahko to težavo rešite hitro in enostavno, ne da bi jih ročno kopirali in prilepili?
Kopirajte vrstice z več delovnih listov na podlagi meril v nov list s kodo VBA
Kopirajte vrstice z več delovnih listov na podlagi meril v nov list s kodo VBA
Naslednja koda VBA vam lahko pomaga kopirati določene vrstice z vseh delovnih listov v delovnem zvezku, ki temeljijo na določenem stanju, v nov delovni list. Naredite to:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.
Koda VBA: Kopirajte vrstice z več listov na podlagi meril v nov list
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
Opombe: V zgornji kodi:
- Besedilo "Končana" v tem xRStr = "Dokončano" skript označuje poseben pogoj, na podlagi katerega želite kopirati vrstice;
- C: C v tem Nastavite xRg = xWs.Range ("C: C") skript označuje določen stolpec, v katerem se nahaja pogoj.
3. Nato pritisnite F5 ključ za zagon te kode in vse vrstice s posebnim pogojem so bile kopirane in prilepljene v nov delovni list z imenom Kutools za Excel v trenutnem delovnem zvezku. Oglejte si posnetek zaslona:
Bolj relativni članki s potegom ali kopiranjem podatkov:
- Kopirajte podatke na drug delovni list z naprednim filtrom v Excelu
- Običajno lahko hitro uporabimo funkcijo naprednega filtra za pridobivanje podatkov iz neobdelanih podatkov na istem delovnem listu. Toda včasih, ko poskušate filtriran rezultat kopirati na drug delovni list, boste dobili naslednje opozorilno sporočilo. Kako bi se v tem primeru lahko spopadli s to nalogo v Excelu?
- Kopirajte vrstice v nov list na podlagi meril stolpcev v Excelu
- Na primer, obstaja tabela odkupa sadja, zdaj pa morate zapise kopirati na nov list na podlagi določenega sadja, kako to enostavno narediti v Excelu? Tukaj bom predstavil nekaj metod za kopiranje vrstic na nov list na podlagi kriterijev stolpcev v Excelu.
- Kopiraj vrstice, če stolpec vsebuje določeno besedilo / vrednost v Excelu
- Recimo, da želite v stolpcu odkriti celice, ki vsebujejo določeno besedilo ali vrednost, in nato kopirati celotno vrstico, v kateri je najdena celica, kako bi se z njo lahko spopadli? Tukaj bom predstavil nekaj načinov, kako najti, ali stolpec vsebuje določeno besedilo ali vrednost, in nato kopirati celotno vrstico v Excelu.
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce in vodenje podatkov; Vsebina razdeljenih celic; Združite podvojene vrstice in vsoto / povprečje... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Priljubljene in hitro vstavite formule, Obsegi, grafikoni in slike; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Razvrščanje vrtilne tabele po številka tedna, dan v tednu in še več ... Prikaži odklenjene, zaklenjene celice po različnih barvah; Označite celice s formulo / imenom...
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!