VPF::Поиск последней ячейки в Excel - Форум программистов

kminas

Дата 25.4.2006, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет

К сожалению, пока самостоятельно не получается. Имеется таблица Columns A-E. Заполняю её макросами. После выполнения очередного макроса, необходимо находить последнюю непустую ячейку в этом диапазоне и ставить курсор в столбец "А" ниже нее на 2 строки.

Akina

Дата 26.4.2006, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

См. хелп по SpecialCells

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

kminas

Дата 26.4.2006, 19:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет

Спасибо, посмотрю.

Gannibal

Дата 25.5.2006, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: нет
Всего: 17

Код


Option Explicit

Sub zobrazit()
Dim a As Byte
Dim bun%, bun2%
Dim x1%

bun = 0

For a = 1 To 5 Step 1
bun2 = Cells(65536, a).End(xlUp).Row

If bun < bun2 Then
    x1 = bun2
    bun = bun2
End If

Next

Range("A" & x1 + 2).Activate

End Sub

Это сообщение отредактировал(а) Gannibal - 25.5.2006, 11:42

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »