Hvordan flyttes hele rækken til et andet ark baseret på celleværdi i Excel?
For at flytte hele rækken til et andet ark baseret på celleværdi, hjælper denne artikel dig.
Flyt hele rækken til et andet ark baseret på celleværdi med VBA-kode
Flyt hele rækken til et andet ark baseret på celleværdi med Kutools til Excel
Flyt hele rækken til et andet ark baseret på celleværdi med VBA-kode
Som vist på nedenstående skærmbillede skal du flytte hele rækken fra Ark1 til Ark2, hvis der findes et specifikt ord "Udført" i kolonne C. Du kan prøve følgende VBA-kode.
1. Trykke andre+ F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik på i vinduet Microsoft Visual Basic til applikationer indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i vinduet.
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
Bemærk: I koden, Sheet1 er regnearket indeholder den række, du vil flytte. Og Sheet2 er destinationsarket, hvor du finder rækken til. “C: C”Er kolonnen, der indeholder den bestemte værdi, og ordet“Udført”Er den bestemte værdi, du vil flytte række baseret på. Skift dem ud fra dine behov.
3. Tryk på F5 nøgle til at køre koden, så flyttes rækken, der opfylder kriterierne i Ark1, straks til Ark2.
Bemærk: Ovenstående VBA-kode sletter rækker fra de originale data efter at have flyttet til et specificeret regneark. Hvis du kun vil kopiere rækker baseret på celleværdi i stedet for at slette dem. Anvend nedenstående VBA-kode 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
Flyt hele rækken til et andet ark baseret på celleværdi med Kutools til Excel
Hvis du er nybegynder i VBA-kode. Her introducerer jeg Vælg specifikke celler nytte af Kutools til Excel. Med dette værktøj kan du nemt vælge alle rækker baseret på en bestemt celleværdi eller forskellige celleværdier i et regneark og kopiere de valgte rækker til destinationsarket efter behov. Gør som følger.
Før påføring Kutools til Excel, Bedes download og installer det først.
1. Vælg kolonnelisten, der indeholder den celleværdi, du vil flytte rækker baseret på, og klik derefter på Kutools > Type > Vælg specifikke celler. Se skærmbillede:
2. I åbningen Vælg specifikke celler dialogboksen, vælg Hele rækken i Valgtype sektion, vælg Lig i Specifik type på rullelisten, skal du indtaste celleværdien i tekstboksen og derefter klikke på OK .
En anden Vælg specifikke celler dialogboksen vises for at vise dig antallet af valgte rækker, og i mellemtiden indeholder alle rækker den angivne værdi i den valgte kolonne er valgt. Se skærmbillede:
3. Tryk på Ctrl + C nøgler til at kopiere de valgte rækker og derefter indsætte dem i det destinationsark, du har brug for.
Bemærk: Hvis du vil flytte rækker til et andet regneark baseret på to forskellige celleværdier. Flyt f.eks. Rækker baseret på celleværdier enten "Udført" eller "Behandling", du kan aktivere Or tilstand i Vælg specifikke celler dialogboks som vist nedenstående skærmbillede:
Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.
Relaterede artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!