Аннотация

В Microsoft Excel вручную или с помощью некоторых простых Microsoft Visual Basic для приложений кода можно выбрать ячеек в диапазоне. Эта статья содержит примеры, которые можно использовать для выбора диапазона ячеек.

Дополнительная информация

Примеры того, как выбор ячеек вручную

Чтобы вручную выбрать все данные в столбце, выберите первую ячейку и нажмите клавиши CTRL + SHIFT + Стрелка вниз. Аналогичным образом для выбора строк и всех столбцов присоединен к строке, нажмите сочетание клавиш CTRL + SHIFT + Стрелка вниз стрелкой + Стрелка вправо. Тем не менее, все данные должны быть непрерывными (то есть не пустые строки или столбцы). Кроме того можно выбрать текущей области данных (последовательных данных с пустые строки или столбцы) следующим образом:

  1. В меню Правка выберите пункт Перейти.

  2. В диалоговом окне Переход нажмите кнопку Выделить.

  3. В диалоговом окне Перейдите к специальной щелкните областьи нажмите кнопкуОК.

Можно также выбрать этот диапазон с помощью кода простого Visual Basic для приложений. Примечание. Если вы попытаетесь записать эту процедуру с помощью средства записи макросов, не получают те же результаты.

Примеры того, как использовать код Visual Basic для выбора ячеек в диапазоне

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и без гарантии или подразумеваемых. Это включает, но не ограничиваясь, подразумеваемые гарантии товарной пригодности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с демонстрируемым языком программирования и средствами, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут объяснить возможности конкретной процедуры, но не выполнять модификации примеров для обеспечения дополнительных функциональных возможностей или создания процедур для определенных требований. В следующих примерах кода Visual Basic показано, как выбрать различные диапазоны. Если вы знаете начало ячейки (в данном примере начало ячейка является C1), и требуется выбрать до последней ячейки (в том же столбце) с данными, но не знать этот адрес, используйте следующий код:

   Sub SelectRangeDown()      Range("c1", Range("c1").End(xlDown)).Select   End Sub

Примечание. Макрос SelectRangeDown предполагается, что данные являются непрерывными. В противном случае при наличии пустых ячеек в столбце данных, которые вы выбираете, этот макрос может не выберите все к ячейкам в столбце. Если данные в ячейке C1 начинается, но не является непрерывным, в этом столбце, используйте следующий макрос в Microsoft Office Excel 2003 и более ранних версиях Excel:

   Sub SelectRangeDown_Discontiguous()      Range("c1", Range("c65536").End(xlUp)).Select   End Sub

Так как Microsoft Office Excel 2007 поддерживает 1048576 строк, используйте следующий макрос в Excel 2007:

 Sub SelectRangeDown_Discontiguous()      Range("c1", Range("c1048576").End(xlUp)).Select   End Sub

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

   Sub myrangearea()      Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Select   End Sub

Если вы знаете начальную ячейку (в этом примере кода начальной ячейки-D1), и требуется выбрать столбец вниз и вправо, используйте следующий код:

   Sub RangeFromStart()      Range("d1", Range("d1").End(xlDown).End(xlToRight)).Select   End Sub

Чтобы выбрать все данные в текущей области, используйте следующий код:

   Sub CurrentArea()      Selection.CurrentRegion.Select   End Sub

Примеры, включенные в этой статье показано, как выбрать различные диапазоны для активного листа в текущую книгу. Дополнительные сведения о том, как выбрать диапазоны с Visual Basic для приложений (и более сложные примеры), щелкните следующий номер статьи базы знаний Майкрософт:

способ выбора ячеек или диапазонов в Excel с помощью процедуры Visual Basic

Нужна дополнительная помощь?

Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединение к программе предварительной оценки Майкрософт

Были ли сведения полезными?

Насколько вы удовлетворены качеством перевода?
Что повлияло на вашу оценку?

Спасибо за ваш отзыв!

×