Як перемістити весь рядок на інший аркуш на основі значення комірки в 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. За допомогою цієї утиліти ви можете легко вибрати всі рядки на основі певного значення комірки або різних значень комірок на аркуші та скопіювати вибрані рядки на робочий аркуш, як вам потрібно. Будь ласка, виконайте наступне.
Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.
1. Виберіть список стовпців, що містить значення комірки, на основі якого ви будете переміщувати рядки, а потім натисніть Кутулс > Select > Виберіть певні клітини. Дивіться знімок екрана:
2. На відкритті Виберіть певні клітини діалогове вікно, виберіть Весь ряд в Тип вибору розділ, виберіть Так само в Конкретний тип в розкривному списку, введіть значення комірки в текстове поле, а потім клацніть на OK кнопки.
Інший Виберіть певні клітини спливає діалогове вікно, щоб показати вам кількість вибраних рядків, а тим часом усі рядки містять вказане значення у вибраному стовпці. Дивіться знімок екрана:
3 Натисніть кнопку Ctrl + C , щоб скопіювати вибрані рядки, а потім вставити їх у потрібний вам робочий аркуш.
примітки: Якщо ви хочете перемістити рядки на інший аркуш на основі двох різних значень комірок. Наприклад, переміщуючи рядки на основі значень комірок або "Готово", або "Обробка", ви можете ввімкнути Or стан в Виберіть певні клітини діалогове вікно, як показано нижче:
Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Статті по темі:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
