Hogyan lehet másolni a kritériumok alapján több munkalapról a sorokat egy új lapra?
Tegyük fel, hogy van egy munkafüzete, amely három munkalapot tartalmaz, amelyek formázása megegyezik az alábbi képernyőképen látható ábrával. Most át akarja másolni ezekből a munkalapokból az összes sort, amely C oszlop tartalmazza a „Befejezett” szöveget egy új munkalapba. Hogyan oldhatná meg ezt a problémát gyorsan és egyszerűen anélkül, hogy manuálisan másolná és beillesztené őket?
Másolja a kritériumok alapján több munkalapról a sorokat egy új VBA kóddal ellátott lapra
Másolja a kritériumok alapján több munkalapról a sorokat egy új VBA kóddal ellátott lapra
A következő VBA-kód segíthet abban, hogy egy adott feltétel alapján a munkafüzet összes munkalapjáról adott sorokat másoljon egy új munkalapba. Kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.
VBA kód: Sorok másolása több lapról a kritériumok alapján egy új lapba
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
Megjegyzések: A fenti kódban:
- A szöveg "Befejezett" ebben xRStr = "Befejezve" a szkript azt a konkrét feltételt jelöli, amely alapján sorokat akar másolni;
- C: C ebben Állítsa be xRg = xWs.Range ("C: C") a szkript azt az oszlopot jelöli, ahol a feltétel található.
3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és az adott feltétellel rendelkező összes sort kimásolta és beillesztette egy új Kutools for Excel nevű munkalapra az aktuális munkafüzetben. Lásd a képernyőképet:
Relatívabb adat-cikkek húzása vagy másolása:
- Adatok másolása egy másik munkalapra, speciális szűrővel az Excel programban
- Normál esetben gyorsan alkalmazhatjuk a Speciális szűrő funkciót, hogy ugyanabban a munkalapon nyerjük ki az adatokat a nyers adatokból. De néha, amikor megpróbálja másolni a szűrt eredményt egy másik munkalapra, a következő figyelmeztető üzenetet kapja. Ebben az esetben hogyan kezelheti ezt a feladatot az Excel programban?
- Sorok másolása új munkalapra az Excel oszlopfeltételei alapján
- Például van egy gyümölcsvásárlási táblázat, és most le kell másolnia a rekordokat egy új gyümölcslapra a meghatározott gyümölcs alapján, hogyan lehet ezt egyszerűen elvégezni az Excelben? Itt bemutatok néhány módszert a sorok új lapra másolására az Excel oszlopfeltételei alapján.
- Sorok másolása, ha az oszlop meghatározott szöveget / értéket tartalmaz az Excelben
- Tegyük fel, hogy meg akarja találni azokat a cellákat, amelyek egy szöveget vagy értéket tartalmaznak egy oszlopban, majd átmásolja az egész sort, ahol a megtalált cella található, hogyan kezelhetné? Itt bemutatok néhány módszert annak megállapítására, hogy az oszlop tartalmaz-e konkrét szöveget vagy értéket, majd átmásolom a teljes sort az Excel-be.
A legjobb irodai termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80%-kal növeli a termelékenységet
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!