Kako premakniti celo vrstico na drug list na podlagi vrednosti celice v Excelu?

Ta članek vam bo pomagal pri premikanju celotne vrstice na drug list na podlagi vrednosti celice.

Premaknite celo vrstico na drug list na podlagi vrednosti celice s kodo VBA
Premaknite celo vrstico na drug list na podlagi vrednosti celice s programom Kutools za Excel

Premaknite celo vrstico na drug list na podlagi vrednosti celice s kodo VBA

Kot je prikazano spodaj na sliki zaslona, morate celotno vrstico premakniti iz Sheet1 na Sheet2, če v stolpcu C. obstaja določena beseda "Končano". Lahko poskusite z naslednjo kodo VBA.

1. Pritisnite druga+ F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. V oknu Microsoft Visual Basic for Applications kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v okno.

VBA code 1: Move entire row to another sheet based on cell value

Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
       If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            xRg(K).EntireRow.Delete
            If CStr(xRg(K).Value) = "Done" Then
                K = K - 1
            End If
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Opombe: V kodi, Sheet1 je delovni list vsebuje vrstico, ki jo želite premakniti. In Sheet2 je ciljni delovni list, kamor boste poiskali vrstico. “C: C"Je stolpec vsebuje določeno vrednost, beseda"Done"Je določena vrednost, na podlagi katere boste premaknili vrstico. Prosimo, spremenite jih glede na vaše potrebe.

3. Pritisnite F5 tipko za zagon kode, nato pa se vrstica, ki ustreza merilom v listu1, takoj premakne na list2.

Opombe: Zgornja koda VBA bo izbrisala vrstice iz prvotnih podatkov po selitvi na določen delovni list. Če želite vrstice kopirati samo na podlagi vrednosti celice, namesto da bi jih izbrisali. Prosimo, uporabite spodnjo kodo VBA 2.

VBA code 2: Copy entire row to another sheet based on cell value

Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
    If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Premaknite celo vrstico na drug list na podlagi vrednosti celice s programom Kutools za Excel

Če ste novinec v kodi VBA. Tukaj predstavljam Izberite Specific Cells uporabnost Kutools za Excel. S tem pripomočkom lahko preprosto izberete vse vrstice na podlagi določene vrednosti celice ali različnih vrednosti celic na delovnem listu in izbrane vrstice kopirate na ciljni delovni list, kot potrebujete. Naredite naslednje.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. Izberite seznam stolpcev, ki vsebuje vrednost celice, na podlagi katere boste premaknili vrstice, in kliknite Kutools > Izberite > Izberite Specific Cells. Oglejte si posnetek zaslona:

2. Na odprtju Izberite Specific Cells izberite pogovorno okno Cela vrstica v Vrsta izbire izberite, izberite enako v Posebna vrsta spustni seznam, vnesite vrednost celice v besedilno polje in nato kliknite OK gumb.

Še ena Izberite Specific Cells Pojavi se pogovorno okno, da se prikaže število izbranih vrstic, medtem ko vse vrstice vsebujejo določeno vrednost, v izbranem stolpcu pa so bile izbrane. Oglejte si posnetek zaslona:

3. Pritisnite Ctrl + C tipke za kopiranje izbranih vrstic in jih nato prilepite v ciljni delovni list, ki ga potrebujete.

Opombe: Če želite premakniti vrstice na drug delovni list, ki temelji na dveh različnih vrednostih celic. Če na primer premaknete vrstice glede na vrednosti celic "Končano" ali "Obdelava", lahko omogočite Or stanje v Izberite Specific Cells pogovorno okno, kot je prikazano spodaj:

Če želite imeti brezplačen preizkus (30-dan) tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.

Sorodni članki:

Kako premakniti celo vrstico na dno aktivnega lista na podlagi vrednosti celice 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%

Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
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 brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... 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č ...
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...
Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ...

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

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!

Preberite več ... Brezplačen prenos... Nakup ...

Komentarji (299)

Ocene še ni. Bodite prvi in ocenite!

cian

pred približno dvema letoma

#17672

Ta komentar je moderator na spletnem mestu minimiziral

Pozdravljeni, ta vodnik se mi je zdel zelo koristen v primerjavi z drugimi, ki sem jih videl. Hvala vam! Težava, ki jo imam, je, da če spremenim želeno vrednost v "Zaprto", moram zagnati F5, da premaknem vrstico. Rad bi, da se premakne samodejno. Sem nov v Excelu, zato je vaša pomoč zelo cenjena. Sub Cheezy() Dim xRg As Range Dim xCell As Range Dim I As Long Dim J As Long I = Worksheets("ECR Incident Tracker").UsedRange.Rows.Count J = Worksheets("Resolved Issues").UsedRange.Rows. Count If J = 1 Potem Če Application.WorksheetFunction.CountA(Worksheets("Resolved Issues").UsedRange) = 0 Potem J = 0 Konec, če je nastavljen xRg = Worksheets("ECR Incident Tracker").Range("B1:B" & I) Ob napaki Nadaljuj naslednjo aplikacijo.ScreenUpdating = False For Every xCell In xRg Če CStr(xCell.Value) = "Zaprto" Potem xCell.EntireRow.Copy Destination:=Worksheets("Resolved Issues").Range("A") & J + 1) xCell.EntireRow.Delete J = J + 1 End, če je naslednja aplikacija.ScreenUpdating = True End Sub

Odgovori

Talia cian

pred približno dvema letoma

#17673

Ta komentar je moderator na spletnem mestu minimiziral

Pozdravljeni, poskušam avtomatizirati premikanje celic, ne da bi bilo treba odpreti modul in pritisniti tudi F5. Ste že kdaj rešili to vprašanje? Hvala v naprej!

Odgovori

David Vidler Talia

pred približno dvema letoma

#17674

Ta komentar je moderator na spletnem mestu minimiziral

Crystal je zagotovila informacije o tem, kako to storiti danes - poglejte prvo stran te teme, da vidite njen odgovor. Samodejno premakne vrstico z današnjim datumom v stolpcu (v mojem primeru L) na drug delovni list.

Odgovori