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

@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    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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")

Новые блоги и статьи Все статьи Все блоги /
Работа с объемным DOM в javascript Htext 04.04.2025 Сегодня прочитал статью тут о расходах памяти в JS, ее утечках и т. п. И вот что вспомнил из своей недавней практики. Может, кому пригодится. Хотя, в той статье об этом тоже есть. Дело в том, что я. . .	Оптимизация производительности Node.js с помощью кластеризации run.dev 04.04.2025 Масштабирование приложений для обработки тысяч и миллионов запросов — обыденная задача для многих команд. Node. js, благодаря своей асинхронной событийно-ориентированной архитектуре, стал популярной. . .	Управление зависимостями в Python с Poetry py-thonny 04.04.2025 Стандартный инструмент для установки пакетов в Python - pip - прекрасно справляется с базовыми сценариями: установил пакет командой pip install и используешь его. Но что произойдёт, когда разные. . .	Мониторинг с Prometheus в PHP Jason-Webb 04.04.2025 Prometheus выделяется среди других систем мониторинга своим подходом к сбору и хранению метрик. В отличие от New Relic, который использует агентный подход и отправляет данные во внешнее хранилище,. . .	Пакет Context в Golang: Управление потоками и ресурсами golander 04.04.2025 Работа с горутинами в Go часто напоминает управление непослушными детьми - они разбегаются кто куда, делают что хотят и не всегда завершаются вовремя. К счастью, в Go 1. 7 появился пакет context,. . .
Контейнеризация React приложений с Docker Reangularity 03.04.2025 Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .	Свой попап в SwiftUI mobDevWorks 03.04.2025 SwiftUI, как декларативный фреймворк от Apple, предоставляет множество инструментов для создания пользовательских интерфейсов. В нашем распоряжении есть такие API как alerts, popovers, action sheets. . .	Антипаттерны микросервисной архитектуры ArchitectMsa 03.04.2025 Хорошо спроектированная микросервисная система может выдержать испытание временем, оставаясь гибкой, масштабируемой и устойчивой к большинству проблем. Такая архитектура обладает высоким уровнем. . .	std::mutex в C++: Советы и примеры использования bytestream 03.04.2025 std::mutex - это механизм взаимного исключения, который гарантирует, что критический участок кода выполняется только одним потоком в каждый момент времени. Это простое, но могущественное средство. . .	Не удержался от оценки концепции двигателя Стирлинга. Hrethgir 03.04.2025 Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .

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

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

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

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

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