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