Jak przenieść cały wiersz do innego arkusza na podstawie wartości komórki w programie Excel?
Ten artykuł pomoże Ci przenieść cały wiersz do innego arkusza na podstawie wartości komórki.
Przenieś cały wiersz do innego arkusza na podstawie wartości komórki z kodem VBA
Przenieś cały wiersz do innego arkusza na podstawie wartości komórki za pomocą Kutools for Excel
Przenieś cały wiersz do innego arkusza na podstawie wartości komórki z kodem VBA
Jak pokazano na poniższym zrzucie ekranu, musisz przenieść cały wiersz z Arkusza1 do Arkusza2, jeśli w kolumnie C występuje określone słowo „Gotowe”. Możesz wypróbować następujący kod VBA.
1. naciśnij inny+ F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. W oknie Microsoft Visual Basic for Applications kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna.
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
Note: W kodzie Sheet1 czy arkusz zawiera wiersz, który chcesz przenieść. I Sheet2 to docelowy arkusz roboczy, w którym zostanie umieszczony wiersz. „C: C”To kolumna zawierająca określoną wartość, a słowo„Gotowe ”To pewna wartość, na podstawie której będziesz przenosić wiersz. Zmień je w zależności od potrzeb.
3. wciśnij F5 klucz, aby uruchomić kod, wiersz spełniający kryteria Sheet1 zostanie natychmiast przeniesiony do Sheet2.
Note: Powyższy kod VBA usunie wiersze z oryginalnych danych po przejściu do określonego arkusza roboczego. Jeśli chcesz tylko kopiować wiersze na podstawie wartości komórki, zamiast je usuwać. Zastosuj poniższy kod 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
Przenieś cały wiersz do innego arkusza na podstawie wartości komórki za pomocą Kutools for Excel
Jeśli jesteś nowicjuszem w kodzie VBA. Tutaj przedstawiam Wybierz określone komórki użyteczność Kutools dla programu Excel. Za pomocą tego narzędzia możesz łatwo wybrać wszystkie wiersze na podstawie określonej wartości komórki lub różnych wartości komórek w arkuszu, a następnie skopiować wybrane wiersze do arkusza docelowego, jeśli potrzebujesz. Wykonaj następujące czynności.
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
1. Wybierz listę kolumn zawierającą wartość komórki, na podstawie której będziesz przenosić wiersze, a następnie kliknij Kutools > Wybierz > Wybierz określone komórki. Zobacz zrzut ekranu:
2. W otwarciu Wybierz określone komórki okno dialogowe, wybierz Cały rząd Typ wyboru sekcja, wybierz Równa się Określony typ rozwijanej liście, wprowadź wartość komórki w polu tekstowym, a następnie kliknij OK przycisk.
Inne Wybierz określone komórki pojawi się okno dialogowe, aby pokazać liczbę wybranych wierszy, a tymczasem wszystkie wiersze zawierające określoną wartość w wybranej kolumnie zostały wybrane. Zobacz zrzut ekranu:
3. wciśnij Ctrl + C klucze, aby skopiować wybrane wiersze, a następnie wklej je do potrzebnego arkusza docelowego.
Note: Jeśli chcesz przenieść wiersze do innego arkusza na podstawie dwóch różnych wartości komórek. Na przykład, aby przenieść wiersze na podstawie wartości komórek „Gotowe” lub „Przetwarzanie”, możesz włączyć opcję Or stan w Wybierz określone komórki okno dialogowe, jak pokazano na poniższym zrzucie ekranu:
Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.
Powiązane artykuły:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!