Voor het verplaatsen van een hele rij naar een ander blad op basis van de celwaarde, helpt dit artikel u.
Verplaats de hele rij naar een ander blad op basis van de celwaarde met VBA-code
Verplaats de hele rij naar een ander blad op basis van de celwaarde met Kutools voor Excel
Zoals onderstaand screenshot laat zien, moet u de hele rij verplaatsen van Blad1 naar Blad2 als een specifiek woord "Gereed" bestaat in kolom C. U kunt de volgende VBA-code proberen.
1. druk op anders+ F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het venster.
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 SubOpmerking:: In de code, Sheet1 is het werkblad de rij die u wilt verplaatsen. En Sheet2 is het bestemmingswerkblad waar u de rij naartoe wilt lokaliseren. "C: C'Is de kolom die de bepaalde waarde bevat en het woord'gedaan”Is de bepaalde waarde waarop u de rij verplaatst op basis van. Wijzig ze op basis van uw behoeften.
3. druk de F5 toets om de code uit te voeren, dan wordt de rij die aan de criteria in Sheet1 voldoet onmiddellijk naar Sheet2 verplaatst.
Opmerking:: De bovenstaande VBA-code verwijdert rijen uit de originele gegevens nadat ze naar een opgegeven werkblad zijn verplaatst. Als u alleen rijen wilt kopiëren op basis van celwaarde in plaats van ze te verwijderen. Pas de onderstaande VBA-code 2 toe.
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 SubAls je een newbie bent in VBA-code. Hier introduceer ik de Selecteer specifieke cellen nut van Kutools for Excel. Met dit hulpprogramma kunt u eenvoudig alle rijen selecteren op basis van een bepaalde celwaarde of verschillende celwaarden in een werkblad, en de geselecteerde rijen naar het doelwerkblad kopiëren als u nodig hebt. Ga als volgt te werk.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. Selecteer de kolomlijst die de celwaarde bevat waarop u rijen wilt verplaatsen, en klik vervolgens op Kutools > kies > Selecteer specifieke cellen. Zie screenshot:
2. In de opening Selecteer specifieke cellen dialoogvenster, kies Hele rij functie in het Selectie type sectie, selecteer Is gelijk aan functie in het Specifiek type vervolgkeuzelijst, voer de celwaarde in het tekstvak in en klik vervolgens op het OK knop.
Nog een Selecteer specifieke cellen dialoogvenster verschijnt om u het aantal geselecteerde rijen te tonen, en ondertussen bevatten alle rijen de opgegeven waarde in de geselecteerde kolom zijn geselecteerd. Zie screenshot:
3. druk de Ctrl + C -toetsen om de geselecteerde rijen te kopiëren en ze vervolgens in het gewenste werkblad te plakken.
Opmerking:: Als u rijen naar een ander werkblad wilt verplaatsen op basis van twee verschillende celwaarden. Verplaats bijvoorbeeld rijen op basis van celwaarden "Gereed" of "Verwerken", u kunt de Or voorwaarde in de Selecteer specifieke cellen dialoogvenster zoals onderstaand screenshot getoond:
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
