Excel макрос для выделения ячейки - Word и Excel - помощь в работе с программами

В данном примере мы VBA код который позволяет найти и выделить ячейку макросом. Выделение ячеек с учетом нестандартных условий может оказаться весьма непростой задачей в Excel. В этом примере описано как легко решается данный тип задач с использованием макроса.

Выделение несмежных диапазонов с помощью макроса

У нас иметься таблица уровней расходов отделов по отношению к расходам труда, произведенного в отдельных отделах за первое полугодие. Часть ячеек, для которых неопределенны показатели содержат значение «нд».

Нам необходимо экспонировать ячейки, которые содержат значение «нд» выделив их серым цветом заливки фона. В таблице на десятки тысяч строк сложно искать все эти ячейки. А если редактировать каждую ячейку вручную, тогда потребуется много сил и времени. Без условно можно воспользоваться инструментом «Условное форматирование». Но иногда для автоматизированного решения данной задачи лучше написать свой собственный макрос. Дело в том, что несмотря на широкие возможности условного форматирования – макрос является более гибким инструментом. Его потом можно применять разным способом. Ведь в основе его принципа действия лежит выделение ячеек с определенным значением. После того как ознакомившись с нашей версией макроса вы сможете его легко изменять, придавая ему все новые функциональные возможности. В результате чего вас будет ограничивать только высота полета вашей фантазии.

Откройте редактор: «РАЗРАБОТЧИК»-«Код»-«Visual Basic» (ALT+F11):

В редакторе создайте новый модуль выбрав инструмент: «Insert»-«Module» и введите в него следующий VBA-код макроса:

Sub PoiskZnach() Dim i As Long Dim znach As Variant Dim diapaz1 As Range Dim diapaz2 As Range znach = InputBox("Введите исходное значение") If znach = "" Then Exit Sub If IsNumeric(znach) Then znach = znach * 1 Set diapaz1 = Application.Intersect(Selection, ActiveSheet.UsedRange) If diapaz1 Is Nothing Then MsgBox "Сначала выделите диапазон!" Exit Sub Else For i = 1 To diapaz1.Count If diapaz1(i) = znach Then If diapaz2 Is Nothing Then Set diapaz2 = diapaz1(i) Else Set diapaz2 = Application.Union(diapaz2, diapaz1(i)) End If End If Next End If If diapaz2 Is Nothing Then Else diapaz2.Select End If End Sub

Теперь если мы хотим выделить все ячейки которые содержать значение «нд» в таблице отчета уровня расходов по отделам и присвоить им серый фон, тогда выделите диапазон B2:F12 выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«PoiskZnach»-«Выполнить».

В результате скачала появиться диалоговое окно, в котором следует ввести исходное значение для поиска «нд» и нажать ОК:

После чего макрос выполнит все инструкции, описанные в его коде на языке программирования VBA. Он автоматически и самостоятельно выделит все ячейки в выделенном диапазоне, которые содержат значение «нд»:

Результат автоматического выделения макросом группы ячеек соответствующие критерию поиска.

В начале кода объявлены 4 переменные:

i – счетчик цикла.
znach – значение которое должна содержать ячейка.
diapaz1 – адрес проверяемого диапазона.
diapaz2 – адрес для несмежного диапазона, соответствующий критериям пользователя.

Внимание! Понятие несмежный диапазон ячеек подразумевает то, что этот диапазон состоит из нескольких отдельных областей ячеек. Выделение нескольких диапазонов ячеек можно реализовать вручную с нажатой клавишей CTRL на клавиатуре при выделении мышкой разных областей на листе.

После декларации переменных вызываем окно для ввода критериев поиска необходимого значения и передаем эти же критерии в переменную znach. Сразу в коде описываем инструкцию для проверки на пустые критерии. Если пользователь оставил поле ввода пустым или нажал на кнопку «Отмена», тогда работа макроса будет прервана остановкой с помощью вызова соответствующей инструкции:

Exit Sub

Также проверяется: если пользователь ввел текст похожий на числовое значение, тогда преобразовываем критерий поиска в числовые значения с помощью умножения его на число 1.

На следующей строке кода оператором Set создаем ссылку и в переменную diapaz1 присваиваем диапазон ячеек, который состоит из двух частей:

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

Внимание! Используемый диапазон рабочего листа получаем с помощью свойства UsedRange. Это адрес диапазона, который охватывает все ячейки с любыми значениями или измененные форматом на текущем рабочем листе Excel:

Set diapaz1 = Application.Intersect(Selection, ActiveSheet.UsedRange)

Поэтому если предварительно не был выделен диапазон ячеек в области используемого диапазона рабочего листа Excel, тогда объект для переменной diapaz1 будет пустым (без ссылки). И дальнейшая работа макроса – не возможна. Поэтому следует проверить не является ли пустым объект в переменной diapaz1:

If diapaz1 Is Nothing Then ‘проверяем пустой ли объект Range в переменной diapaz1

Если перед выполнением макроса не был выделен диапазон в используемой области листа – объект пустой, тогда выводиться соответствующее сообщение с помощью функции:

MsgBox «Сначала выделите диапазон!»

И выполнение кода снова прерывается функцией Exit Sub. Если же пользователь сделал все верно, тогда дальше беспрепятственно выполняется следующая строка в коде макроса.

В следующей части VBA-макроса создан цикл, внутри которого по очереди все ячейки в диапазоне определенным переменной diapaz1 проверяются на наличие искомого значения:

For i = 1 To diapaz1.Count
If diapaz1(i) = znach Then
If diapaz2 Is Nothing Then
Set diapaz2 = diapaz1(i)
Else
Set diapaz2 = Application.Union(diapaz2, diapaz1(i))
End If
End If
Next

Если диапазон переменной diapaz1 содержит ячейку с таким же значением, как и в переменной znach, тогда несмежный диапазон ячеек в переменной diapaz2 увеличивается на один адрес для включения этой ячейки. Таким образом несмежный диапазон в переменной diapaz2 включая в себя все адреса найденных ячеек. Реализовывается увеличение несмежного диапазона в переменной diapaz2 с помощью свойства Union, оно позволяет создавать несмежные диапазоны.

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

MsgBox «Не найдено исходное значение»

Макрос для пересчета выделенной области

Теперь вы самостоятельно можете модифицировать макрос. гибко настраивая его под самые привередливые потребности. Например, добавим новую возможность. Макрос будет сообщать нам о количестве найденных ячеек, соответствующих критерию поиска. Для этого в конце макроса после строки diapaz2.Select следует добавить новую строчку кода:

MsgBox «Найдено: » & diapaz2.Count & » ячеек!»

После выполнения макроса и выделения ним ячеек мы будем получать сообщение о их количестве:

MsgBox.

Чтобы макрос умел работать с ключами поиска для многозначных значений (например, звездочка «*» – для всех символов), тогда следует изменить соответствующий оператор в коде. Перейдите на строку макроса №15 где указана инструкция для проверки соответствия значений просматриваемых ячеек в диапазоне со значением переменной znach. Затем измените оператор сравнение на оператор Like:

If diapaz1(i) Like znach Then

Теперь после такой модификации кода макроса в критерии поиска можно использовать ключ звездочку «*» (для всех символов). Например, если мы в поле ввода введем значение «н*» макрос будет учитывать все ячейки, значение которых начинается с символа буквы «н».

В Excel можно использовать только 2 ключа многозначного значения запроса в поиске:

«*» – символ звездочки (любые другие символы).
«?» – вопросительный знак (отдельный символ) например, так:

Если нужно сделать так, чтобы макрос не был чувствителен к регистру вводимых текстовых символов? Если макрос должен одинаково находит значения не зависимо большая или маленькая буква в критерии поиска и выдавать один и тот же результат? Тогда в строке №15 , где проверяется значение ячейки используйте функцию LCase следующим образом:

If LCase(diapaz1(i)) Like LCase(znach) Then

Задача функции LCase замена всех символов в тексте на нижний регистр (маленькие буквы):

LCase.

Полная новая версия кода модифицированного макроса для выделения ячеек выглядит так:

Sub PoiskZnach() Dim i As Long Dim znach As Variant Dim diapaz1 As Range Dim diapaz2 As Range znach = InputBox("Введите исходное значение") If znach = "" Then Exit Sub If IsNumeric(znach) Then znach = znach * 1 Set diapaz1 = Application.Intersect(Selection, ActiveSheet.UsedRange) If diapaz1 Is Nothing Then MsgBox "Сначала выделите диапазон!" Exit Sub Else For i = 1 To diapaz1.Count If LCase(diapaz1(i)) Like LCase(znach) Then If diapaz2 Is Nothing Then Set diapaz2 = diapaz1(i) Else Set diapaz2 = Application.Union(diapaz2, diapaz1(i)) End If End If Next End If If diapaz2 Is Nothing Then MsgBox "Не найдено исходное значение" Else diapaz2.Select MsgBox "Найдено: " & diapaz2.Count & " ячеек!" End If End Sub

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

Источник

Download Article

This wikiHow teaches you how to start using Visual Basic procedures to select data in Microsoft Excel. As long as you’re familiar with basic VB scripting and using more advanced features of Excel, you’ll find the selection process pretty straight-forward.

1
Select one cell on the current worksheet. Let’s say you want to select cell E6 with Visual Basic. You can do this with either of the following options:^[1]
```
ActiveSheet.Cells(6, 5).Select
```
```
ActiveSheet.Range("E6").Select
```
2
Select one cell on a different worksheet in the same workbook. Let’s say our example cell, E6, is on a sheet called Sheet2. You can use either of the following options to select it:
```
Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)
```
```
Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))
```
Advertisement
3
Select one cell on a worksheet in a different workbook. Let’s say you want to select a cell from Sheet1 in a workbook called BOOK2.XLS. Either of these two options should do the trick:
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(2,1)
```
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("A2")
```
4
Select a cell relative to another cell. You can use VB to select a cell based on its location relative to the active (or a different) cell. Just be sure the cell exists to avoid errors. Here’s how to use :
- Select the cell three rows below and four columns to the left of the active cell:
```
ActiveCell.Offset(3, -4).Select
```
- Select the cell five rows below and four columns to the right of cell C7:
```
ActiveSheet.Cells(7, 3).Offset(5, 4).Select
```

1
Select a range of cells on the active worksheet. If you wanted to select cells C1:D6 on the current sheet, you can enter any of the following three examples:
```
ActiveSheet.Range(Cells(1, 3), Cells(6, 4)).Select
```
```
ActiveSheet.Range("C1:D6").Select
```
```
ActiveSheet.Range("C1", "D6").Select
```
2
Select a range from another worksheet in the same workbook. You could use either of these examples to select cells C3:E11 on a sheet called Sheet3:
```
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("C3:E11")
```
```
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("C3", "E11")
```
3
Select a range of cells from a worksheet in a different workbook. Both of these examples would select cells E12:F12 on Sheet1 of a workbook called BOOK2.XLS:
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E12:F12")
```
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E12", "F12")
```
4
Select a named range. If you’ve assigned a name to a range of cells, you’d use the same syntax as steps 4-6, but you’d replace the range address (e.g., «E12», «F12») with the range’s name (e.g., «Sales»). Here are some examples:
- On the active sheet:
```
ActiveSheet.Range("Sales").Select
```
- Different sheet of same workbook:
```
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("Sales")
```
- Different workbook:
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("Sales")
```
5
Select a range relative to a named range. The syntax varies depending on the named range’s location and whether you want to adjust the size of the new range.
- If the range you want to select is the same size as one called Test5 but is shifted four rows down and three columns to the right, you’d use:
```
ActiveSheet.Range("Test5").Offset(4, 3).Select
```
- If the range is on Sheet3 of the same workbook, activate that worksheet first, and then select the range like this:
```
Sheets("Sheet3").Activate ActiveSheet.Range("Test").Offset(4, 3).Select
```
6
Select a range and resize the selection. You can increase the size of a selected range if you need to. If you wanted to select a range called Database’ and then increase its size by 5 rows, you’d use this syntax:
```
Range("Database").Select Selection.Resize(Selection.Rows.Count + 5, _Selection.Columns.Count).Select
```
7
Select the union of two named ranges. If you have two overlapping named ranges, you can use VB to select the cells in that overlapping area (called the «union»). The limitation is that you can only do this on the active sheet. Let’s say you want to select the union of a range called Great and one called Terrible:
- ```
Application.Union(Range("Great"), Range("Terrible")).Select
```
- If you want to select the intersection of two named ranges instead of the overlapping area, just replace Application.Union with Application.Intersect.

1

Use this example data for the examples in this method. This chart full of example data, courtesy of Microsoft, will help you visualize how the examples behave:^[2]

A1: Name B1: Sales C1: Quantity

A2: a B2: $10 C2: 5

A3: b B3: C3: 10

A4: c B4: $10 C4: 5

A5: B5: C5:

A6: Total B6: $20 C6: 20
2
Select the last cell at the bottom of a contiguous column. The following example will select cell A4:
```
ActiveSheet.Range("A1").End(xlDown).Select
```
3
Select the first blank cell below a column of contiguous cells. The following example will select A5 based on the chart above:
```
ActiveSheet.Range("A1").End(xlDown).Offset(1,0).Select
```
4
Select a range of continuous cells in a column. Both of the following examples will select the range A1:A4:
```
ActiveSheet.Range("A1", ActiveSheet.Range("a1").End(xlDown)).Select
```
```
ActiveSheet.Range("A1:" & ActiveSheet.Range("A1"). End(xlDown).Address).Select
```
5
Select a whole range of non-contiguous cells in a column. Using the data table at the top of this method, both of the following examples will select A1:A6:
```
ActiveSheet.Range("A1",ActiveSheet.Range("A65536").End(xlUp)).Select
```
```
ActiveSheet.Range("A1",ActiveSheet.Range("A65536").End(xlUp)).Select
```

Ask a Question

200 characters left

Include your email address to get a message when this question is answered.

Submit

Video

The «ActiveSheet» and «ActiveWorkbook» properties can usually be omitted if the active sheet and/or workbook(s) are implied.

Thanks for submitting a tip for review!

About This Article

Article SummaryX

1. Use ActiveSheet.Range(«E6»).Select to select E6 on the active sheet.
2. Use Application.Goto (ActiveWorkbook.Sheets(«Sheet2»).Range(«E6»)) to select E6 on Sheet2.
3. Add Workbooks(«BOOK2.XLS») to the last step to specify that the sheet is in BOOK2.XLS.

Did this summary help you?

Thanks to all authors for creating a page that has been read 167,714 times.

Is this article up to date?

Источник

Капитан Экселя

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 13:39. Показов 41608. Ответов 23

Метки нет (Все метки)

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

Visual Basic

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

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

Vlad999

3827 / 2254 / 751

Регистрация: 02.11.2012

Сообщений: 5,928

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

Капитан Экселя

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

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») — всё нормально сортирует.

Вложения

Выделение ячеек.xlsx (9.3 Кб, 51 просмотров)

Vlad999

3827 / 2254 / 751

Регистрация: 02.11.2012

Сообщений: 5,928

29.07.2015, 14:41

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

Visual Basic

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

Select не нужен.

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 14:50

[ТС]

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

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

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

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

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

3827 / 2254 / 751

Регистрация: 02.11.2012

Сообщений: 5,928

29.07.2015, 15:10

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

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

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

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

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

Капитан Экселя

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

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

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

Вложения

Выделение ячеек.xlsx (11.7 Кб, 18 просмотров)

skol13

369 / 78 / 6

Регистрация: 23.05.2012

Сообщений: 232

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)), _

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 16:36

[ТС]

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

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

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

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

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

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

skol13

369 / 78 / 6

Регистрация: 23.05.2012

Сообщений: 232

29.07.2015, 16:51

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

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

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

Visual Basic

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

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

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

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

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

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

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 16:51

[ТС]

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

369 / 78 / 6

Регистрация: 23.05.2012

Сообщений: 232

29.07.2015, 16:52

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

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 16:52

[ТС]

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

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

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

skol13

369 / 78 / 6

Регистрация: 23.05.2012

Сообщений: 232

29.07.2015, 17:06

Сообщение было отмечено Капитан Экселя как решение

Решение

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

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

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

Visual Basic

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

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

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

Капитан Экселя

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

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

Вложения

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

15 / 15 / 5

Регистрация: 01.12.2014

Сообщений: 117

29.07.2015, 17:14

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

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

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

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

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

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 17:15

[ТС]

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

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

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

15 / 15 / 5

Регистрация: 01.12.2014

Сообщений: 117

29.07.2015, 17:19

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

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

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

369 / 78 / 6

Регистрация: 23.05.2012

Сообщений: 232

29.07.2015, 17:19

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

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

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

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

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

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

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

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

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

5590 / 1580 / 406

Регистрация: 23.12.2010

Сообщений: 2,366

Записей в блоге: 1

29.07.2015, 17:20

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

Источник

Определение адреса выделенного диапазона ячеек на листе Excel с помощью кода VBA. Определение номера первой и последней строки. Программное выделение диапазона.

Адрес выделенного диапазона

Для определения адреса выделенного диапазона ячеек в VBA Excel используется свойство Address объекта Selection.

Объект Selection — это совокупность всех выделенных ячеек на листе Excel. Это может быть одна ячейка, смежный или несмежный диапазон ячеек, представляющий коллекцию смежных диапазонов. Если выделение состоит из несмежного диапазона, адреса смежных диапазонов, из которых он состоит, будут перечислены через запятую.

Смежный диапазон — прямоугольная область смежных (прилегающих друг к другу) ячеек.

Несмежный диапазон — совокупность (коллекция) смежных диапазонов (прямоугольных областей смежных ячеек).

Стоит отметить: несмотря на то, что в выделенном диапазоне может содержаться много ячеек, активной может быть только одна. Она представлена объектом ActiveCell. Для определения ее адреса в коде VBA Excel также используется свойство Address.

Sub Primer1()

MsgBox «Адрес выделенного диапазона: « & Selection.Address & _

vbNewLine & «Адрес активной ячейки: « & ActiveCell.Address & _

vbNewLine & «Номер строки активной ячейки: « & ActiveCell.Row & _

vbNewLine & «Номер столбца активной ячейки: « & ActiveCell.Column

End Sub

Скопируйте и запустите код на выполнение. В результате получите что-то вроде этого, зависящее от того, какие диапазоны вы выберите:

Определение адресов выделенного диапазона и активной ячейки

Выделение ячеек и диапазонов

Выделить несмежный диапазон ячеек можно следующим образом:

Sub Primer2()

Range(«B4:C7,E5:F7,D8»).Select

End Sub

Как видно из примера, в адресной строке объекта Range перечисляются адреса смежных диапазонов, составляющих общий несмежный диапазон, через запятую. Выделение осуществляется методом Select объекта Range.

Определение номеров первой и последней строки

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

Sub Primer3()

Dim i1 As Long, i2 As Long

i1 = Selection.Cells(1).Row

i2 = Selection.Cells(Selection.Cells.Count).Row

MsgBox «Первая строка: « & i1 & _

vbNewLine & «Последняя строка: « & i2

End Sub

Результат будет таким, зависит от выделенного диапазона:

Номера первой и последней строки выделенного смежного диапазона

Таким же образом можно вычислить номера первого и последнего столбцов выделенного диапазона, которые можно использовать для обработки информации по столбцам.

Обратите внимание, что для несмежных диапазонов этот пример не работает.

На практике я использовал определение номеров первой и последней строк по выделенному диапазону для формирования файла загрузки данных держателей дисконтных карт на сервис отправки СМС-сообщений. Оказалось, что базу данных клиентов заполнять в таблице Excel намного удобнее, чем на портале сервиса, а для загрузки в сервис достаточно сформировать несложный файл. Заполнил новые строки, выделил их по любому столбцу, нажал кнопку и файл готов.

Источник

Содержание

Выделите пустые ячейки с помощью условного форматирования
Выберите и выделите пустые ячейки в Excel
Использование VBA для выделения пустых ячеек в Excel

Посмотреть видео — Как выделить пустые ячейки в Excel

Когда я получаю файл данных от клиента / коллеги или загружаю его из базы данных, я провожу базовую проверку данных. Я делаю это, чтобы убедиться, что нет недостающих точек данных, ошибок или дубликатов, которые могут привести к проблемам позже.

Одна из таких проверок — найти и выделить пустые ячейки в Excel.

Пустые ячейки в наборе данных могут быть пустыми по многим причинам:

Данных нет.
Точки данных были случайно удалены.
Формула возвращает пустую строку, в результате чего получается пустая ячейка.

Хотя эти пустые ячейки легко обнаружить в небольшом наборе данных, если у вас есть огромный набор с сотнями строк и столбцов, выполнение этого вручную было бы крайне неэффективным и подверженным ошибкам.

В этом уроке я покажу вам различные способы поиска и выделения пустых ячеек в Excel.

Выделите пустые ячейки с помощью условного форматирования

Условное форматирование — отличный способ выделить ячейки на основе их значения при выполнении заданного условия.

Я собираюсь продемонстрировать эти примеры с небольшим набором данных. Однако вы можете использовать те же методы и с большими наборами данных.

Предположим, у вас есть набор данных, как показано ниже:

Вы можете видеть, что в этом наборе данных есть пустые ячейки.

Вот шаги, чтобы выделить пустые ячейки в Excel (с использованием условного форматирования):

Это выделит все пустые ячейки в наборе данных.

Обратите внимание, что условное форматирование является динамическим. Это означает, что если применяется условное форматирование и вы удаляете точку данных, эта ячейка будет выделена автоматически.

В то же время такое динамическое поведение связано с накладными расходами. Условное форматирование нестабильно и при использовании с большими наборами данных может замедлить работу вашей книги.

Если вы хотите быстро выделить и выделить пустые ячейки, вы можете использовать технику «Перейти к специальному».

Вот шаги, чтобы выбрать и выделить пустые ячейки в Excel:

Как уже упоминалось, этот метод полезен, когда вы хотите быстро выделить все пустые ячейки и выделить их. Вы также можете использовать те же шаги, чтобы выбрать все пустые ячейки, а затем заполнить в них 0 или NA или любой другой соответствующий текст.

Обратите внимание, что в отличие от условного форматирования этот метод не является динамическим. Если вы сделаете это один раз, а затем по ошибке удалите точку данных, она не будет выделена.

Использование VBA для выделения пустых ячеек в Excel

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

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

Вот код VBA, который выделяет пустые ячейки в выбранном наборе данных:

Код от Sumit Bansal (https://trumpexcel.com) Sub HighlightBlankCells () Dim Dataset As Range Set Dataset = Selection Dataset.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbRed End Sub

Вот шаги, чтобы поместить этот код VBA в бэкэнд, а затем использовать его для выделения пустых ячеек в Excel:

Как запустить код VBA (макрос)?

После того, как вы скопировали и вставили этот макрос, его можно использовать несколькими способами.

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

Вот шаги, чтобы запустить этот макрос с помощью диалогового окна Macro:

Выберите данные.
Перейдите на вкладку «Разработчик» и нажмите «Макросы».
В диалоговом окне «Макрос» выберите макрос «HighlightBlankCells» и нажмите «Выполнить».

Использование редактора VB

Вот шаги для запуска этого макроса с помощью редактора VB:

Выберите данные.
Перейдите на вкладку Разработчик и щелкните Visual Basic.
В редакторе VB щелкните в любом месте кода.
Нажмите кнопку с зеленым треугольником на панели инструментов (или нажмите клавишу F5).

Как я уже упоминал, использование макроса VBA для выделения пустых ячеек — лучший способ, если вам нужно делать это часто. Помимо описанных выше способов запуска макроса, вы также можете создать надстройку или сохранить код в личной книге макросов. Это позволит вам получить доступ к этому коду из любой книги в вашей системе.

Вы поможете развитию сайта, поделившись страницей с друзьями

Источник

A1: Name	B1: Sales	C1: Quantity
A2: a	B2: $10	C2: 5
A3: b	B3:	C3: 10
A4: c	B4: $10	C4: 5
A5:	B5:	C5:
A6: Total	B6: $20	C6: 20