Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Переместить столбец с первой до последней заполненной строки
 
Здравствуйте, подскажите, пожалуйста, как мне переместить столбец с первой до последней заполненной строки в другое место?
Когда я использую [A:A].value = [B:B].value копируются весь столбец до последней возможной строки, что жутко тормозит работу.
 
Код
Sub test5()
Dim LastRow As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A1:A" & LastRow).Copy Range("B1") 'копируем формулы и форматы
End Sub

Только значения
Код
Sub test6()
Dim LastRow As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A1:A" & LastRow).Copy
    Range("B1").PasteSpecial xlValues 'только значения
End Sub
Изменено: New - 16 сен 2020 17:30:56
 
New, спасибо огромное за помощь.
Страницы: 1
Читают тему (гостей: 1)
Наверх