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

@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")

@Hugo121 6945 / 2849 / 549 Регистрация: 19.10.2012 Сообщений: 8,724
	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 6945 / 2849 / 549 Регистрация: 19.10.2012 Сообщений: 8,724
	22.03.2017, 12:47	11
	Сообщение от toiai Работает если все ячейки заполнены информацией, я не о том. Я о ("A1") 0