Як перемістити весь рядок на інший аркуш на основі значення комірки в Excel?

Для переміщення цілого рядка на інший аркуш на основі значення комірки ця стаття допоможе вам.

Перемістіть цілий рядок на інший аркуш на основі значення комірки з кодом VBA
Перемістіть весь рядок на інший аркуш на основі значення клітинки за допомогою Kutools для Excel

Перемістіть цілий рядок на інший аркуш на основі значення комірки з кодом VBA

Як показано нижче на скріншоті, вам потрібно перемістити весь рядок з Аркуша1 на Аркуш2, якщо в стовпці С. є конкретне слово “Готово”. Ви можете спробувати такий код VBA.

1. прес інший+ F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. У вікні Microsoft Visual Basic for Applications натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код VBA у вікно.

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

примітки: У коді, Sheet1 - аркуш містить рядок, який потрібно перемістити. І Sheet2 - це робочий аркуш призначення, де ви знайдете рядок. “C: C"- стовпець містить певне значення, а слово"Зроблений"- це певне значення, за яким ви перемістите рядок. Будь ласка, змініть їх відповідно до ваших потреб.

3 Натисніть кнопку F5 клавішу для запуску коду, тоді рядок, який відповідає критеріям у Аркуші1, буде негайно переміщено до Аркуша2.

примітки: Наведений вище код VBA видалить рядки з вихідних даних після переміщення на вказаний аркуш. Якщо потрібно лише скопіювати рядки на основі значення комірки, а не видаляти їх. Будь ласка, застосуйте наведений нижче код 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

Перемістіть весь рядок на інший аркуш на основі значення клітинки за допомогою Kutools для Excel

Якщо ви новачок у коді VBA. Тут я представляю Виберіть певні клітини корисність Kutools для Excel. За допомогою цієї утиліти ви можете легко вибрати всі рядки на основі певного значення комірки або різних значень комірок на аркуші та скопіювати вибрані рядки на робочий аркуш, як вам потрібно. Будь ласка, виконайте наступне.

1. Виберіть список стовпців, що містить значення комірки, на основі якого ви будете переміщувати рядки, а потім натисніть Кутулс > Select > Виберіть певні клітини. Дивіться знімок екрана:

2. На відкритті Виберіть певні клітини діалогове вікно, виберіть Весь ряд в Тип вибору розділ, виберіть Так само в Конкретний тип в розкривному списку, введіть значення комірки в текстове поле, а потім клацніть на OK кнопки.

Інший Виберіть певні клітини спливає діалогове вікно, щоб показати вам кількість вибраних рядків, а тим часом усі рядки містять вказане значення у вибраному стовпці. Дивіться знімок екрана:

3 Натисніть кнопку Ctrl + C , щоб скопіювати вибрані рядки, а потім вставити їх у потрібний вам робочий аркуш.

примітки: Якщо ви хочете перемістити рядки на інший аркуш на основі двох різних значень комірок. Наприклад, переміщуючи рядки на основі значень комірок або "Готово", або "Обробка", ви можете ввімкнути Or стан в Виберіть певні клітини діалогове вікно, як показано нижче:

Статті по темі:

• Як перемістити весь рядок до нижньої частини активного аркуша на основі значення комірки в Excel?