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

@Капитан Экселя · Регистрация: 27.07.2015

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

Я Вас уже, наверное, достал, но мне нужна Ваша помощь.
В общем мне нужно в макросе прописать выделение диапазона ячеек, начиная с B4 и кончая последней заполненной. Напишите, пожалуйста, как это будет выглядеть для столбца и как для диапазона столбцов и строк.
Поиском нашёл такое:

Visual Basic

1	Range(Selection, Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)).Select

и подобие, но не пойму как указать начальную ячейку B4 и как указать поиск последней для столбца (вместо ActiveSheet.UsedRange.Columns.Count как указать номер столбца)?

@Vlad999 · 29.07.2015, 14:05

Visual Basic

1	Range("B4",Cells(Rows.Count,2).End(xlUp)).Select

Добавлено через 6 минут
если нет пустых строк и столбцов для нескольких строк и нескольких столбцов можно так.

Visual Basic

1	ActiveSheet.Range("B4").CurrentRegion.Select

@Капитан Экселя · 29.07.2015, 14:21 **[ТС]**

Vlad999,
Видимо не совсем корректно поставил задачу.
1. В приложенном файле нужно в макросе прописать выделение только закрашенного зелёным диапазона. Но конечная строка диапазона меняется. Нужно, чтобы он находил последнюю заполненную ячейку (могут в последней строке не во всех столбцах, закрашенных зелёным (ну в диапазоне "зелёном") быть заполненные ячейки).
2. Далее в коде делаю сортировку:

Visual Basic

ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Add Key:=Range("B4:B300") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers

(начальная часть кода сортировки). Нужно в строке ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Add Key:=Range("B4:B300") _ вместо Range("B4:B300") _ прописать Range("B4:последняя заполненная ячейка столбца B") _ . Прописываю как Вы сказали (
Range("B4",Cells(Rows.Count,2).End(xlUp)).Select), но почему-то не сортирует. Но если укажу конкретно Range("B4:B300") - всё нормально сортирует.

@Vlad999 · 29.07.2015, 14:41

для сортировки в

Visual Basic

1	Range("B4",Cells(Rows.Count,2).End(xlUp)).Select)

Select не нужен.

@Капитан Экселя · 29.07.2015, 14:50 **[ТС]**

Vlad999,
А по первому вопросу? "1. В приложенном файле нужно в макросе прописать выделение только закрашенного зелёным диапазона. Но конечная строка диапазона меняется. Нужно, чтобы он находил последнюю заполненную ячейку (могут в последней строке не во всех столбцах, закрашенных зелёным (ну в диапазоне "зелёном") быть заполненные ячейки).?

Добавлено через 1 минуту

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

Код Visual BasicВыделить код
1
Range("B4",Cells(Rows.Count,2).End(xlUp)).Select)

Не сортирует так. Если указать конкретный столбец (Range("B4:B300")) - сортирует. а так - не хочет.

@Vlad999 · 29.07.2015, 15:10

приложите файл с кодом.
П.С. напоминаю в xlsx макросы не жевут.

Добавлено через 3 минуты

Сообщение от Капитан Экселя

(начальная часть кода сортировки)

в продолжении тоже должен встречаться такой же диапазон, его тоже нужно прописывать динамическим.

@Капитан Экселя · 29.07.2015, 15:18 **[ТС]**

Vlad999,
В приложенном файле (диапазон выделен зелёным).
Так:

Visual Basic

Sub Макрос18()
'
' Макрос18 Макрос
'
 
'
    Range ("B4:E91").Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("C4:C91"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("B3:E91")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

работает, а так:

Visual Basic

Sub Макрос18()
'
' Макрос18 Макрос
'
 
'
    Range ("B4:E91").Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("C4", Cells(Rows.Count, 3).End(xlUp)) _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("B3:E91")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

нет. И как в приложенном файле в макросе выделить "зелёный" диапазон до последней заполненной в нём ячейки (как видите правее тоже есть столбцы с числами - их не трогаем)?

@skol13 · 29.07.2015, 16:28

Сообщение от Капитан Экселя

А по первому вопросу? "1. В приложенном файле нужно в макросе прописать выделение только закрашенного зелёным диапазона. Но конечная строка диапазона меняется. Нужно, чтобы он находил последнюю заполненную ячейку (могут в последней строке не во всех столбцах, закрашенных зелёным (ну в диапазоне "зелёном") быть заполненные ячейки).?

Ниже зеленого диапазона могут быть строки?

Добавлено через 16 минут

Сообщение от Капитан Экселя

Так работает, а так - нет.

А вы запятую забыли поставить вот здесь перед переносом:
вот так работает:

Visual Basic

1	ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("C4", Cells(Rows.Count, 3).End(xlUp)), _

@Капитан Экселя · 29.07.2015, 16:36 **[ТС]**

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

Ниже зеленого диапазона могут быть строки?

Нет не могут. Но нижняя строка зелёного диапазона может сдвигаться.

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

вот так работает:

Вау, спасибо. А у меня красным выделяло. Оказывается я Энтер лишний нажал.

@skol13 · 29.07.2015, 16:51

Сообщение от Капитан Экселя

Нет не могут. Но нижняя строка зелёного диапазона может сдвигаться.

Ну так используйте решение, которое вам камрад Vlad999, в первом ответе показал.
Тем более, если количество столбцов в "зеленом диапазоне" не изменяется и оно известно.
Ставьте в

Visual Basic

1	Range("B4",Cells(Rows.Count,2).End(xlUp)).Select

нужную цифру последнего столбца диапазона и вперед

Добавлено через 3 минуты

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

Ставьте нужную цифру последнего столбца диапазона и вперед

А, не, стоп...

Столбец с комментариями не заполнен - выделяет фигню какую то

@Капитан Экселя · 29.07.2015, 16:51 **[ТС]**

skol13,
Так а чем тогда этот код будет отличаться, если мой диапазон - 1 столбец?

@skol13 · 29.07.2015, 16:52

Почему один столбец?
Там вроде зеленым столбцов 5 закрашено...

@Капитан Экселя · 29.07.2015, 16:52 **[ТС]**

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

1
Range("B4",Cells(Rows.Count,2).End(xlUp)).Select

Так выделит только один столбец. Не? А как тогда выделить один столбец?
У меня в оригинальном файле нет заливки цветом. Это я в примере подсветил для наглядности.

@skol13 · 29.07.2015, 17:06

Сообщение от Капитан Экселя

Так выделит только один столбец. Не? А как тогда выделить один столбец?

Один, да.
В вашем случае, если после последней нужной вам строки больше данных нет, и известно количество столбцов диапазона для выделения можно сделать так:

Visual Basic

1	Range("B4", Cells(ActiveCell.SpecialCells(xlLastCell).Row, 5)).Select

"5" - это номер последнего столбца для выделения. Меняя эту цифру можно выделить необходимое кол-во столбцов, от 1 до "сколько нужно"
Если "сколько нужно" - понятие переменное - тут надо смотреть уже дальше

Добавлено через 6 минут
И в личку можно не дублировать сообщения

Оповещение работает нормально

@Капитан Экселя · 29.07.2015, 17:08 **[ТС]**

В примере работает, а в оригинальном файле - нет. Вот файл и код (что написано в комментариях никому не говорить). Столбцы от B до E. Стиль ссылок у меня R1C1.

Visual Basic

Sub Макрос12()
'
' Макрос12 Макрос
'
 
'
    Range("B4", Cells(ActiveCell.SpecialCells(xlLastCell).Row, 5)).Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("C4", Cells(Rows.Count, 3).End(xlUp)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Лист2").Sort
        .SetRange Range("B3:E554")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

@сороконожка · 29.07.2015, 17:14

Я не особо вчитывался в тему, не смотрел ответы, и не качал пример.
Но помоему это как-то связано.

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

приложите файл с кодом.
П.С. напоминаю в xlsx макросы не жевут.

Сообщение от Капитан Экселя

Вложения
Сравнение ПЕРЕМЕЩЕНИЙ.xlsx (37.5 Кб, 0 просмотров)

@Капитан Экселя · 29.07.2015, 17:15 **[ТС]**

Блин разобрался.

Добавлено через 30 секунд
сороконожка,

Неа. Макрос у меня в Персонале лежит.

@сороконожка · 29.07.2015, 17:19

Сообщение от Капитан Экселя

Неа. Макрос у меня в Персонале лежит.

Ваш язык мне не понятен, ради интереса - скачал, поставил, запустил. Всё сработало. Отсортировало по дате.

@skol13 · 29.07.2015, 17:19

Сообщение от Капитан Экселя

что написано в комментариях никому не говорить

Хорошо, никому не скажу

Сообщение от сороконожка

Но помоему это как-то связано.

Не, не связано, но формат файла у ТС какой то странный, с двойным расширением. После xlsx идет обычный xls
Ексель ругается но вроде открывает

Без макросов конечно

Сообщение от Капитан Экселя

Блин разобрался.

Вопрос решен значит?

@KoGG · 29.07.2015, 17:20

Непонятны метания между листами "Лист1" и "Лист2".
Зачем работаем с "Лист2" , ведь он пустой?

@Капитан Экселя 5 / 5 / 1 Регистрация: 27.07.2015 Сообщений: 88
	29.07.2015, 16:51 [ТС]	11
	skol13, Так а чем тогда этот код будет отличаться, если мой диапазон - 1 столбец? 0

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

Решение

Решение

@Капитан Экселя 5 / 5 / 1 Регистрация: 27.07.2015 Сообщений: 88
	29.07.2015, 14:50 [ТС]	5
	Vlad999, А по первому вопросу? "1. В приложенном файле нужно в макросе прописать выделение только закрашенного зелёным диапазона. Но конечная строка диапазона меняется. Нужно, чтобы он находил последнюю заполненную ячейку (могут в последней строке не во всех столбцах, закрашенных зелёным (ну в диапазоне "зелёном") быть заполненные ячейки).? Добавлено через 1 минуту Сообщение от Vlad999 Код Visual BasicВыделить код 1 Range("B4",Cells(Rows.Count,2).End(xlUp)).Select) Не сортирует так. Если указать конкретный столбец (Range("B4:B300")) - сортирует. а так - не хочет. 0

@Vlad999 3917 / 2315 / 784 Регистрация: 02.11.2012 Сообщений: 6,158
	29.07.2015, 15:10	6
	приложите файл с кодом. П.С. напоминаю в xlsx макросы не жевут. Добавлено через 3 минуты Сообщение от Капитан Экселя (начальная часть кода сортировки) в продолжении тоже должен встречаться такой же диапазон, его тоже нужно прописывать динамическим. 0

@Капитан Экселя 5 / 5 / 1 Регистрация: 27.07.2015 Сообщений: 88
	29.07.2015, 16:36 [ТС]	9
	Сообщение от skol13 Ниже зеленого диапазона могут быть строки? Нет не могут. Но нижняя строка зелёного диапазона может сдвигаться. Сообщение от skol13 вот так работает: Вау, спасибо. А у меня красным выделяло. Оказывается я Энтер лишний нажал. 0

@skol13 369 / 78 / 6 Регистрация: 23.05.2012 Сообщений: 232
	29.07.2015, 16:52	12
	Почему один столбец? Там вроде зеленым столбцов 5 закрашено... 0

@Капитан Экселя 5 / 5 / 1 Регистрация: 27.07.2015 Сообщений: 88
	29.07.2015, 16:52 [ТС]	13
	Сообщение от skol13 1 Range("B4",Cells(Rows.Count,2).End(xlUp)).Select Так выделит только один столбец. Не? А как тогда выделить один столбец? У меня в оригинальном файле нет заливки цветом. Это я в примере подсветил для наглядности. 0

@сороконожка 15 / 15 / 5 Регистрация: 01.12.2014 Сообщений: 117
	29.07.2015, 17:14	16
	Я не особо вчитывался в тему, не смотрел ответы, и не качал пример. Но помоему это как-то связано. Сообщение от Vlad999 приложите файл с кодом. П.С. напоминаю в xlsx макросы не жевут. Сообщение от Капитан Экселя Вложения Сравнение ПЕРЕМЕЩЕНИЙ.xlsx (37.5 Кб, 0 просмотров) 0

@Капитан Экселя 5 / 5 / 1 Регистрация: 27.07.2015 Сообщений: 88
	29.07.2015, 17:15 [ТС]	17
	Блин разобрался. Добавлено через 30 секунд сороконожка, Неа. Макрос у меня в Персонале лежит. 0

@сороконожка 15 / 15 / 5 Регистрация: 01.12.2014 Сообщений: 117
	29.07.2015, 17:19	18
	Сообщение от Капитан Экселя Неа. Макрос у меня в Персонале лежит. Ваш язык мне не понятен, ради интереса - скачал, поставил, запустил. Всё сработало. Отсортировало по дате. 0

@skol13 369 / 78 / 6 Регистрация: 23.05.2012 Сообщений: 232
	29.07.2015, 17:19	19
	Сообщение от Капитан Экселя что написано в комментариях никому не говорить Хорошо, никому не скажу Сообщение от сороконожка Но помоему это как-то связано. Не, не связано, но формат файла у ТС какой то странный, с двойным расширением. После xlsx идет обычный xls Ексель ругается но вроде открывает Без макросов конечно Сообщение от Капитан Экселя Блин разобрался. Вопрос решен значит? 0

@KoGG 5612 / 1596 / 414 Регистрация: 23.12.2010 Сообщений: 2,392 Записей в блоге: 1
	29.07.2015, 17:20	20
	Непонятны метания между листами "Лист1" и "Лист2". Зачем работаем с "Лист2" , ведь он пустой? 0