Hur flyttar jag hela raden till ett annat ark baserat på cellvärde i Excel?

För att flytta hela raden till ett annat ark baserat på cellvärde hjälper den här artikeln dig.

Flytta hela raden till ett annat ark baserat på cellvärde med VBA-kod
Flytta hela raden till ett annat ark baserat på cellvärde med Kutools för Excel

Flytta hela raden till ett annat ark baserat på cellvärde med VBA-kod

Som bilden nedan visas måste du flytta hela raden från Sheet1 till Sheet2 om det finns ett specifikt ord "Klar" i kolumn C. Du kan prova följande VBA-kod.

1. Tryck andra+ F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka på i fönstret Microsoft Visual Basic for Applications Insert > Modulerna. Kopiera sedan och klistra in nedanstående VBA-kod i fönstret.

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

Anmärkningar: I koden, Sheet1 är kalkylbladet innehåller raden du vill flytta. Och Sheet2 är destinationens kalkylblad där du hittar raden till. “C: C”Är kolumnen innehåller ett visst värde och ordet”Färdig ”Är det bestämda värdet du kommer att flytta rad baserat på. Ändra dem baserat på dina behov.

3. tryck på F5 för att köra koden, sedan flyttas raden som uppfyller kriterierna i Sheet1 till Sheet2 omedelbart.

Anmärkningar: Ovanstående VBA-kod tar bort rader från originaldata efter att ha flyttat till ett angivet kalkylblad. Om du bara vill kopiera rader baserat på cellvärde istället för att radera dem. Använd nedanstående VBA-kod 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

Flytta hela raden till ett annat ark baserat på cellvärde med Kutools för Excel

Om du är nybörjare i VBA-kod. Här presenterar jag Välj specifika celler nytta av Kutools för Excel. Med det här verktyget kan du enkelt välja alla rader baserat på ett visst cellvärde eller olika cellvärden i ett kalkylblad och kopiera de markerade raderna till målkalkylbladet efter behov. Gör så här.

1. Välj kolumnlistan som innehåller cellvärdet du ska flytta rader baserat på och klicka sedan på Kutools > Välja > Välj specifika celler. Se skärmdump:

2. I öppningen Välj specifika celler dialogrutan, välj Hela raden i Urvalstyp avsnitt, välj lika i Specifik typ rullgardinsmenyn, ange cellvärdet i textrutan och klicka sedan på OK knapp.

Annan Välj specifika celler dialogrutan dyker upp för att visa antalet valda rader, och under tiden innehåller alla rader det angivna värdet i vald kolumn har valts. Se skärmdump:

3. tryck på ctrl + C för att kopiera de markerade raderna och klistra in dem i det målkalkylblad du behöver.

Anmärkningar: Om du vill flytta rader till ett annat kalkylblad baserat på två olika cellvärden. Till exempel, flytta rader baserat på cellvärden antingen "Klar" eller "Bearbetning", du kan aktivera Or tillstånd i Välj specifika celler dialogruta som visas nedan:

Relaterade artiklar:

• Hur flyttar jag hela raden till botten av det aktiva arket baserat på cellvärde i Excel?