Автоматическое перенесение строк

Posted by obzor under Basic, VBA

Необходимо настроить макрос на автоматический перенос на строки Листа1, в столбце «A:А» которых указано значение «да», из Листа2 строк, в столбце «A:А» которых указано значение 1.

SAS888

В данном случае можно поступить очень просто:

Sub Main()
    Dim x As Range, y As Range: On Error Resume Next
    Application.ScreenUpdating = False
    Set x = Sheets("Лист2").[A:A].SpecialCells(2, 1)
    For Each y In x
        y.EntireRow.Cut Sheets("Лист1").[A:A].SpecialCells(2, 2).Cells(1)
    Next
End Sub

Только следует иметь ввиду, что данный макрос перенесет все строки из листа 2, в столбце «A» которых ЛЮБАЯ цифра, в лист 1, в те строки, в столбце «A» которых ЛЮБОЕ текстовое значение.

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel