Как переместить определенную строку на новый лист, если в Excel установлен флажок?
В этой статье говорится о перемещении определенной строки на новый лист, когда в Excel установлен флажок.
Переместить строку, когда флажок установлен с кодом VBA
Переместить строку, когда флажок установлен с кодом VBA
Пожалуйста, сделайте следующее, чтобы переместить определенную строку на указанный рабочий лист, установив флажок в Excel.
1. Перейдите к рабочему листу, в котором необходимо переместить строку на основе флажка, щелкните разработчик > Вставить > Флажок (элемент ActiveX) чтобы установить флажок. Смотрите скриншот:
2. Щелкните вкладку листа правой кнопкой мыши, а затем щелкните Просмотреть код из контекстного меню. Смотрите скриншот:
3. В дебюте Microsoft Visual Basic для приложений окна, скопируйте и вставьте ниже код VBA в окно кода.
Код VBA: переместить строку на указанный рабочий лист, когда установлен флажок
Private Sub CheckBox1_Click()
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
If CheckBox1.value Then
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range row you will move(single cell):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1).EntireRow
xRg.Copy
ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
xRg.Clear
Application.CutCopyMode = False
End If
End Sub
Внимание: В коде Shee3 и A1 указывают, что указанная строка будет перемещена в первую строку Sheet3. Пожалуйста, измените их в соответствии с вашими потребностями.
4. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.
5. Выключите режим дизайна, щелкнув значок Режим проектирования Кнопка на разработчик меню.
6. Установите флажок, затем Kutools for Excel появится диалоговое окно, выберите первую ячейку строки (или всю строку), которую необходимо переместить, и щелкните OK кнопка. Затем указанная вся строка будет немедленно перемещена на определенный рабочий лист. Смотрите скриншот:
Статьи по теме:
- Как переместить всю строку на другой лист на основе значения ячейки в Excel?
- Как переместить всю строку в нижнюю часть активного листа на основе значения ячейки в Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
