Поиск последней заполненой ячейки в столбце

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск последней заполненой ячейки в столбце (Макросы Sub)

Kinder

Дата: Четверг, 05.12.2013, 19:49 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 77

Репутация: 0 ±

Замечаний: 0% ±

Еще раз добрый вечер.
Имеются 4 столбца с данными. Н/р: А1:А10, В1:В10 и т.д.
Надо переместить В1:В10 в ячейку А11 и также остальные.Все в столбец А:А. Нашел макрос который находит в А:А нижнюю пустую ячейку.
[vba]

Код

Sub FindEmptyCell()

     ' Поиск ближайшей пустой ячейки в текущем столбце

     Do While Not IsEmpty(ActiveCell.Value)

     ActiveCell.Offset(1, 0).Select

     Loop

End Sub

[/vba]
Дальше не могу сообразить как определить кол-во ячеек в В:В, копировать или вырезать и переместить в А11.
И как в этом макросе указать определенный столбец? Пытался под коментарием прописать Range("A1"). Select
Начал выполнять постоянно и завис.
Спасибо.

"И все таки она вертится!"

Ответить

Kinder

Дата: Четверг, 05.12.2013, 19:53 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 77

Репутация: 0 ±

Замечаний: 0% ±

Далее собрал макрос который выделяет диапазон с последней пустой ячейки вверх.
[vba]

Код

Sub SelectCellRange()

     Dim strSelTop As String, strSelBottom As String

     ' Ïîëó÷åíèå àäðåñîâ íèæíåé è âåðõíåé ÿ÷ååê äèàïàçîíà äëÿ âûäåëåíèÿ

     strSelBottom = ActiveCell.Address

     strSelTop = Cells(4, ActiveCell.Column).Address

     ' Âûäåëÿåì âñå ÿ÷åéêè âûøå òåêóùåé (âìåñòå ñ òåêóùåé ÿ÷åéêîé)

     Range(strSelTop & ":" & strSelBottom).Select

      Selection.Copy
      Range("A15").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
      Application.CutCopyMode = False

End Sub

[/vba]
и не могу соединить с кодом из 1-го сообщения.
Заранее спасибо!