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:
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.

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!































































