Выделить диапазон заполненных ячеек

@caustic · Регистрация: 30.09.2011

Author24 — интернет-сервис помощи студентам

Добрый день.

помогите пожалуйста сообразить:

как мне выделить диапазон заполненных ячеек в колонке 1:

определяет первую заполненную ячейку:

Visual Basic

1	ActiveSheet.Columns(1).Find("*", , xlFormulas, xlWhole).Select

Определяет последнюю заполненную ячейку:

Visual Basic

1 2	Dim lLastRow As Long lLastRow = Cells(Rows.Count, 1).End(xlUp).Row

как это совместить и выделить диапазон от первой заполненной ячейки до последней заполненной

пробовал через переменную, но возможно не так что-то прописывал.. (болею, голова совсем уже не варит ))

@Hugo121 · 20.12.2012, 14:05

Visual Basic

1
2
3

Sub tt()
Range(ActiveSheet.Columns(1).Find("*", , xlFormulas, xlWhole), Cells(Rows.Count, 1).End(xlUp)).Select
End Sub

Скрипт · 20.12.2012, 14:16

Вот такой вариант (использую Find, т.к. другие способы учитывают кроме данных ещё что-нибудь, например, наличие границ у ячеек):

Кликните здесь для просмотра всего текста

Visual Basic

Sub Макрос1()
 
    Dim lStart As Long, lEnd As Long
    
    '1. Определение первой ячейки с данными в столбце "A".
    'After:=Cells(Rows.Count, "A") указывает, с какой ячейки начать поиск.
    'Если не указывать, то поиск ведётся с ячейки "A1" и первой просматриватся
    'ячейка "A2". Если данные уже есть в ячейке "A1", то результат
    'будет неправильным. Поэтому нужно указать ячейку, с которой начинается поиск.
    lStart = Columns("A").Find(What:="?", After:=Cells(Rows.Count, "A"), _
        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
    
    '2. Определение последней ячейки с данными в столбце "A".
    lEnd = Columns("A").Find(What:="?", LookIn:=xlValues, LookAt:=xlPart, _
        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
        MatchCase:=False, SearchFormat:=False).Row
        
    '3. Выделение диапазона с данными в столбце "A".
    Range("A" & lStart & ":A" & lEnd).Select
        
End Sub

@Казанский · 20.12.2012, 16:15

В некоторых случаях можно так - аналог команды F5 - Выделить - Константы:

Visual Basic

1	Set MyRange = Columns(1).SpecialCells(xlCellTypeConstants)

В диапазон попадут ячейки только с константами, с формулами - не попадут.
Если между заполненными ячейками есть пустые, диапазон будет состоять из нескольких областей.

08.07.2013, 23:53

При создании данного макроса выскакивает ошибка:
"Run-time error 1004
Application-defined or object-defined error"
Подскажите, пожалуйста, в чем ошибка?

Сообщение от Скрипт

Вот такой вариант (использую Find, т.к. другие способы учитывают кроме данных ещё что-нибудь, например, наличие границ у ячеек):

Кликните здесь для просмотра всего текста

Visual Basic

Sub Макрос1()
 
    Dim lStart As Long, lEnd As Long
    
    '1. Определение первой ячейки с данными в столбце "A".
    'After:=Cells(Rows.Count, "A") указывает, с какой ячейки начать поиск.
    'Если не указывать, то поиск ведётся с ячейки "A1" и первой просматриватся
    'ячейка "A2". Если данные уже есть в ячейке "A1", то результат
    'будет неправильным. Поэтому нужно указать ячейку, с которой начинается поиск.
    lStart = Columns("A").Find(What:="?", After:=Cells(Rows.Count, "A"), _
        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
    
    '2. Определение последней ячейки с данными в столбце "A".
    lEnd = Columns("A").Find(What:="?", LookIn:=xlValues, LookAt:=xlPart, _
        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
        MatchCase:=False, SearchFormat:=False).Row
        
    '3. Выделение диапазона с данными в столбце "A".
    Range("A" & lStart & ":A" & lEnd).Select
        
End Sub

@dasist · 21.03.2017, 23:00

А я еще вот так делаю:

PureBasic

1	Range(("A1"), Range("A1").End(xlDown)).Select

@Hugo121 · 22.03.2017, 09:34

Сообщение от dasist

Range(("A1"), Range("A1").End(xlDown)).Select

странно, но работает...
Почему?

toiai · 22.03.2017, 09:54

Сообщение от Hugo121

странно, но работает...

Работает если все ячейки заполнены информацией, иначе до первой незаполненной ячейки

@hamin · 22.03.2017, 11:36

Скрипт,

а можете объяснить как это работает? что значит, к примеру, What:="?"

@dasist · 22.03.2017, 11:43

Поначалу я тоже удивился, что работает.

@Hugo121 · 22.03.2017, 12:47

Сообщение от toiai

Работает если все ячейки заполнены информацией,

я не о том. Я о ("A1")

Новые блоги и статьи Все статьи Все блоги /
Использование кэша Laravel - полный гайд bytestream 18.02.2025 Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .	Создаем REST API в Laravel с аутентификацией через Passport bytestream 18.02.2025 Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .	Пайплайны в Laravel - полный гайд bytestream 18.02.2025 Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .	Как правильно использовать @required в Symfony bytestream 18.02.2025 При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .	Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .	Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .

@Hugo121 6991 / 2890 / 554 Регистрация: 19.10.2012 Сообщений: 8,790
	22.03.2017, 09:34	7
	Сообщение от dasist Range(("A1"), Range("A1").End(xlDown)).Select странно, но работает... Почему? 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	22.03.2017, 09:54	8
	Сообщение от Hugo121 странно, но работает... Работает если все ячейки заполнены информацией, иначе до первой незаполненной ячейки 0

@hamin 879 / 558 / 291 Регистрация: 21.11.2012 Сообщений: 1,553
	22.03.2017, 11:36	9
	Скрипт, а можете объяснить как это работает? что значит, к примеру, What:="?" 0

@dasist 0 / 0 / 0 Регистрация: 23.04.2015 Сообщений: 5
	22.03.2017, 11:43	10
	Поначалу я тоже удивился, что работает. 0

@Hugo121 6991 / 2890 / 554 Регистрация: 19.10.2012 Сообщений: 8,790
	22.03.2017, 12:47	11
	Сообщение от toiai Работает если все ячейки заполнены информацией, я не о том. Я о ("A1") 0

	20.12.2012, 13:53