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 SubOpombe: 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 SubPremaknite 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čno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.
Sorodni članki:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!
