Выбор ячеек и диапазонов с помощью процедур Visual Basic в Excel
Корпорация Майкрософт предоставляет примеры программирования только в целях демонстрации без явной или подразумеваемой гарантии. Данное положение включает, но не ограничивается этим, подразумеваемые гарантии товарной пригодности или соответствия отдельной задаче. Эта статья предполагает, что пользователь знаком с представленным языком программирования и средствами, используемыми для создания и отладки процедур. Специалисты технической поддержки Майкрософт могут пояснить работу той или иной процедуры, но модификация примеров и их адаптация к задачам разработчика не предусмотрена. В примерах в этой статье используются методы Visual Basic, перечисленные в следующей таблице.
Method Arguments
------------------------------------------
Activate none
Cells rowIndex, columnIndex
Application.Goto reference, scroll
Offset rowOffset, columnOffset
Range cell1
cell1, cell2
Resize rowSize, columnSize
Select none
Sheets index (or sheetName)
Workbooks index (or bookName)
End direction
CurrentRegion none
В примерах в этой статье используются свойства, приведенные в следующей таблице.
Property Use
---------------------------------------------------------------------
ActiveSheet to specify the active sheet
ActiveWorkbook to specify the active workbook
Columns.Count to count the number of columns in the specified item
Rows.Count to count the number of rows in the specified item
Selection to refer to the currently selected range
Выбор ячейки на активном листе
Чтобы выбрать ячейку D5 на активном листе, можно использовать один из следующих примеров:
ActiveSheet.Cells(5, 4).Select
-or-
ActiveSheet.Range("D5").Select
Выбор ячейки на другом листе в той же книге
Чтобы выбрать ячейку E6 на другом листе в той же книге, можно использовать один из следующих примеров:
Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)
-or-
Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))
Кроме того, можно активировать лист, а затем выбрать ячейку с помощью метода 1, приведенного выше:
Sheets("Sheet2").Activate
ActiveSheet.Cells(6, 5).Select
Выбор ячейки на листе в другой книге
Чтобы выбрать ячейку F7 на листе в другой книге, можно использовать один из следующих примеров:
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6)
-or-
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7")
Кроме того, можно активировать лист, а затем выбрать ячейку с помощью метода 1, приведенного выше:
Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate
ActiveSheet.Cells(7, 6).Select
Выбор диапазона ячеек на активном листе
Чтобы выбрать диапазон C2:D10 на активном листе, можно использовать любой из следующих примеров:
ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select
ActiveSheet.Range("C2:D10").Select
ActiveSheet.Range("C2", "D10").Select
or
ActiveSheet.Range(ActiveSheet.Cells(2, 3), ActiveSheet.Cells(10, 4)).Select
or, alternatively, it could be simplified to this:
Range(Cells(2, 3), Cells(10, 4)).Select
Выбор диапазона ячеек на другом листе в той же книге
Чтобы выбрать диапазон D3:E11 на другом листе в той же книге, можно использовать один из следующих примеров:
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")
Кроме того, можно активировать лист, а затем выбрать диапазон с помощью метода 4, приведенного выше:
Sheets("Sheet3").Activate
ActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select
Выбор диапазона ячеек на листе в другой книге
Чтобы выбрать диапазон E4:F12 на листе в другой книге, можно использовать один из следующих примеров:
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")
Application.Goto _
Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4", "F12")
Кроме того, можно активировать лист, а затем выбрать диапазон с помощью метода 4, приведенного выше:
Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate
ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select
Выбор именованного диапазона на активном листе
Чтобы выбрать именованный диапазон "Тест" на активном листе, можно использовать один из следующих примеров:
Range("Test").Select
Application.Goto "Test"
Выбор именованного диапазона на другом листе в той же книге
Чтобы выбрать именованный диапазон "Тест" на другом листе в той же книге, можно использовать следующий пример:
Application.Goto Sheets("Sheet1").Range("Test")
Или можно активировать лист, а затем использовать метод 7 выше, чтобы выбрать именованный диапазон:
Sheets("Sheet1").Activate
Range("Test").Select
Выбор именованного диапазона на листе в другой книге
Чтобы выбрать именованный диапазон "Тест" на листе в другой книге, можно использовать следующий пример:
Application.Goto _
Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")
Или можно активировать лист, а затем использовать метод 7 выше, чтобы выбрать именованный диапазон:
Workbooks("BOOK2.XLS").Sheets("Sheet2").Activate
Range("Test").Select
Выбор ячейки относительно активной ячейки
Чтобы выбрать ячейку с пятью строками ниже и четырьмя столбцами слева от активной ячейки, можно использовать следующий пример:
ActiveCell.Offset(5, -4).Select
Чтобы выбрать ячейку с двумя строками выше и тремя столбцами справа от активной ячейки, можно использовать следующий пример:
ActiveCell.Offset(-2, 3).Select
Примечание.
При попытке выбрать ячейку, которая находится вне листа, произойдет ошибка. Первый пример, показанный выше, вернет ошибку, если активная ячейка находится в столбцах A–D, так как перемещение четырех столбцов влево приведет к переходу активной ячейки на недопустимый адрес ячейки.
Выбор ячейки относительно другой (не активной) ячейки
Чтобы выбрать ячейку с пятью строками ниже и четырьмя столбцами справа от ячейки C7, можно использовать один из следующих примеров:
ActiveSheet.Cells(7, 3).Offset(5, 4).Select
ActiveSheet.Range("C7").Offset(5, 4).Select
Выбор смещения диапазона ячеек из указанного диапазона
Чтобы выбрать диапазон ячеек того же размера, что и именованный диапазон "Тест", но сдвинув четыре строки вниз и три столбца вправо, можно использовать следующий пример:
ActiveSheet.Range("Test").Offset(4, 3).Select
Если именованный диапазон находится на другом (не активном) листе, сначала активируйте этот лист, а затем выберите диапазон, используя следующий пример:
Sheets("Sheet3").Activate
ActiveSheet.Range("Test").Offset(4, 3).Select
Выбор указанного диапазона и изменение его размера
Чтобы выбрать именованный диапазон "База данных", а затем расширить выделение на пять строк, можно использовать следующий пример:
Range("Database").Select
Selection.Resize(Selection.Rows.Count + 5, _
Selection.Columns.Count).Select
Выбор указанного диапазона, его смещение и изменение размера
Чтобы выбрать диапазон из четырех строк ниже и трех столбцов справа от именованного диапазона "База данных" и включить две строки и один столбец больше именованного диапазона, можно использовать следующий пример:
Range("Database").Select
Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, _
Selection.Columns.Count + 1).Select
Выбор объединения двух или более указанных диапазонов
Чтобы выбрать объединение (то есть объединенную область) двух именованных диапазонов "Тест" и "Образец", можно использовать следующий пример:
Application.Union(Range("Test"), Range("Sample")).Select
Примечание.
Значение , чтобы оба диапазона были на одном листе для работы в этом примере. Обратите внимание, что метод Union не работает на разных листах. Например, эта строка работает нормально.
Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4"))
но эта строка
Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4"))
возвращает сообщение об ошибке:
Сбой метода Union класса приложения
Выбор пересечения двух или более указанных диапазонов
Чтобы выбрать пересечение двух именованных диапазонов "Тест" и "Образец", можно использовать следующий пример:
Application.Intersect(Range("Test"), Range("Sample")).Select
Обратите внимание, что для работы в этом примере оба диапазона должны находиться на одном листе.
Примеры 17–21 в этой статье относятся к следующему примеру набора данных. В каждом примере указывается диапазон ячеек в выборке данных, которые будут выбраны.
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
Выбор последней ячейки столбца непрерывных данных
Чтобы выбрать последнюю ячейку в непрерывном столбце, используйте следующий пример:
ActiveSheet.Range("a1").End(xlDown).Select
При использовании этого кода с образцом таблицы будет выбрана ячейка A4.
Выбор пустой ячейки в нижней части столбца непрерывных данных
Чтобы выбрать ячейку под диапазоном смежных ячеек, используйте следующий пример:
ActiveSheet.Range("a1").End(xlDown).Offset(1,0).Select
При использовании этого кода с образцом таблицы будет выбрана ячейка A5.
Выбор целого диапазона смежных ячеек в столбце
Чтобы выбрать диапазон смежных ячеек в столбце, используйте один из следующих примеров:
ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select
-or-
ActiveSheet.Range("a1:" & ActiveSheet.Range("a1"). _
End(xlDown).Address).Select
При использовании этого кода с образцом таблицы будут выделены ячейки A1–A4.
Как выбрать весь диапазон несмежных ячеек в столбце
Чтобы выбрать диапазон несмежных ячеек, используйте один из следующих примеров:
ActiveSheet.Range("a1",ActiveSheet.Range("a" & ActiveSheet.Rows.Count).End(xlUp)).Select
-or-
ActiveSheet.Range("a1:" & ActiveSheet.Range("a" & ActiveSheet.Rows.Count). _
End(xlUp).Address).Select
При использовании этого кода с образцом таблицы будут выделены ячейки A1–A6.
Выбор прямоугольного диапазона ячеек
Чтобы выбрать прямоугольный диапазон ячеек вокруг ячейки, используйте метод CurrentRegion. Диапазон, выбранный методом CurrentRegion, — это область, ограниченная любым сочетанием пустых строк и пустых столбцов. Ниже приведен пример использования метода CurrentRegion.
ActiveSheet.Range("a1").CurrentRegion.Select
Этот код будет выбирать ячейки A1–C4. Ниже перечислены другие примеры выбора того же диапазона ячеек.
ActiveSheet.Range("a1", _
ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select
-or-
ActiveSheet.Range("a1:" & _
ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Address).Select
В некоторых случаях может потребоваться выбрать ячейки A1–C6. В этом примере метод CurrentRegion не будет работать из-за пустой строки в строке 5. В следующих примерах будут выделены все ячейки:
lastCol = ActiveSheet.Range("a1").End(xlToRight).Column
lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, lastCol).End(xlUp).Row
ActiveSheet.Range("a1", ActiveSheet.Cells(lastRow, lastCol)).Select
-or-
lastCol = ActiveSheet.Range("a1").End(xlToRight).Column
lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, lastCol).End(xlUp).Row
ActiveSheet.Range("a1:" & _
ActiveSheet.Cells(lastRow, lastCol).Address).Select
Выбор нескольких несмежных столбцов разной длины
Чтобы выбрать несколько несмежных столбцов разной длины, используйте следующий пример таблицы и макроса:
A1: 1 B1: 1 C1: 1 D1: 1
A2: 2 B2: 2 C2: 2 D2: 2
A3: 3 B3: 3 C3: 3 D3: 3
A4: B4: 4 C4: 4 D4: 4
A5: B5: 5 C5: 5 D5:
A6: B6: C6: 6 D6:
StartRange = "A1"
EndRange = "C1"
Set a = Range(StartRange, Range(StartRange).End(xlDown))
Set b = Range(EndRange, Range(EndRange).End(xlDown))
Union(a,b).Select
При использовании этого кода с образцом таблицы будут выбраны ячейки A1:A3 и C1:C6.
Примечания к примерам
Свойство ActiveSheet обычно можно опустить, так как оно подразумевается, если конкретный лист не называется. Например, вместо
ActiveSheet.Range("D5").Select
вы можете использовать:
Range("D5").Select
Свойство ActiveWorkbook также обычно можно опустить. Если не указано имя конкретной книги, она подразумевается.
При использовании метода Application.Goto, если вы хотите использовать два метода Cells в методе Range, если указанный диапазон находится на другом (не активном) листе, необходимо каждый раз включать объект Sheets. Например:
With ActiveWorkbook.Sheets("Sheet1")
Application.Goto .Range(.Cells(2, 3), .Cells(4, 5))
End With
Для любого элемента в кавычках (например, именованного диапазона Test) можно также использовать переменную, значение которой является текстовой строкой. Например, вместо
ActiveWorkbook.Sheets("Sheet1").Activate
вы можете использовать
ActiveWorkbook.Sheets(myVar).Activate
где параметр myVar имеет значение Sheet1.