Выделить все ячейки кроме выделенных в excel

Option Explicit
 
Dim alArrBegRows(), alArrEndRows(), alArrBegCols(), alArrEndCols()
Dim lMinRow As Long, lMaxRow As Long, lMinCol As Long, lMaxCol As Long
Sub Invert_Selection()
    Dim rArea As Range, rInvertRange As Range, rTmpRng As Range, rRng As Range
    Dim lr As Long, lc As Long, li As Long
    Dim lEndRow As Long, lEndCol As Long
    Dim bEqualRows As Boolean, bEqualCols As Boolean
 
    If TypeName(Selection) <> "Range" Then Exit Sub
    For Each rArea In Selection.Areas
        ReDim Preserve alArrBegRows(li), alArrEndRows(li), alArrBegCols(li), alArrEndCols(li)
        alArrBegRows(li) = rArea.Row: alArrEndRows(li) = rArea.Row + rArea.Rows.Count - 1
        alArrBegCols(li) = rArea.Column: alArrEndCols(li) = rArea.Column + rArea.Columns.Count - 1
        li = li + 1
    Next rArea
    lMinRow = alArrBegRows(0): lMaxRow = 0: lMinCol = alArrBegCols(0): lMaxCol = 0
    For li = 0 To UBound(alArrBegRows)
        If alArrBegRows(li) < lMinRow Then lMinRow = alArrBegRows(li)
        If alArrEndRows(li) > lMaxRow Then lMaxRow = alArrEndRows(li)
        If alArrBegCols(li) < lMinCol Then lMinCol = alArrBegCols(li)
        If alArrEndCols(li) > lMaxCol Then lMaxCol = alArrEndCols(li)
    Next li
    lEndRow = ActiveSheet.Rows.Count
    lEndCol = ActiveSheet.Columns.Count
    'максимальные пороги
    If lMaxRow <> lEndRow Then
        Set rInvertRange = Rows(lMaxRow + 1 & ":" & lEndRow)
    End If
    If lMaxCol <> lEndCol Then
        If Not rInvertRange Is Nothing Then
            Set rInvertRange = Union(rInvertRange, Range(Cells(1, lMaxCol + 1), Cells(1, lEndCol)).EntireColumn)
        Else
            Set rInvertRange = Range(Cells(1, lMaxCol + 1), Cells(1, lEndCol)).EntireColumn
        End If
    End If
    'минимальные пороги
    If lMinRow <> 1 Then
        If Not rInvertRange Is Nothing Then
            Set rInvertRange = Union(rInvertRange, Rows(1 & ":" & lMinRow - 1))
        Else
            Set rInvertRange = Rows(1 & ":" & lMinRow - 1)
        End If
    End If
    If lMinCol <> 1 Then
        If Not rInvertRange Is Nothing Then
            Set rInvertRange = Union(rInvertRange, Range(Cells(1, 1), Cells(1, lMinCol - 1)).EntireColumn)
        Else
            Set rInvertRange = Range(Cells(1, 1), Cells(1, lMinCol - 1)).EntireColumn
        End If
    End If
 
    For li = 0 To UBound(alArrBegRows)
        'Если выделен целый столбец/столбцы
        If alArrEndRows(li) = lEndRow And alArrBegRows(li) = 1 Then
            bEqualRows = 1
        Else
            bEqualRows = 0
        End If
        'Если выделена целая строка/строки
        If alArrEndCols(li) = lEndCol And alArrBegCols(li) = 1 Then
            bEqualCols = 1
        Else
            bEqualCols = 0
        End If
    Next li
    'Если выделены даже несвязанные строки/столбцы целиком
    If bEqualRows Then lMinRow = lMaxRow
    If bEqualCols Then lMinCol = lMaxCol
    'ячейки "внутри"
    For lr = lMinRow To lMaxRow
        For lc = lMinCol To lMaxCol
            If Intersect_Nums(lr, lc) = False Then
                If rRng Is Nothing Then
                    If lMinRow = lMaxRow Then
                        Set rRng = Cells(lr, lc).EntireColumn
                    Else
                        If lMinCol = lMaxCol Then
                            Set rRng = Cells(lr, lc).EntireRow
                        Else
                            Set rRng = Cells(lr, lc)
                        End If
                    End If
                Else
                    If lMinRow = lMaxRow Then
                        Set rRng = Union(rRng, Cells(lr, lc).EntireColumn)
                    Else
                        If lMinCol = lMaxCol Then
                            Set rRng = Union(rRng, Cells(lr, lc).EntireRow)
                        Else
                            Set rRng = Union(rRng, Cells(lr, lc))
                        End If
                    End If
                End If
            End If
        Next lc
    Next lr
    If Not rInvertRange Is Nothing Then
        If Not rRng Is Nothing Then
            Set rInvertRange = Union(rRng, rInvertRange)
        End If
    Else
        If Not rRng Is Nothing Then
            Set rInvertRange = rRng
        End If
    End If
 
    'Действия над инвертированным диапазоном
    If Not rInvertRange Is Nothing Then
        rInvertRange.Select
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Intersect_Nums
' Purpose   : Функция определения вхождения в диапазон
'---------------------------------------------------------------------------------------
Function Intersect_Nums(lr As Long, lc As Long) As Boolean
    Dim lCntR As Long, lCntC As Long, li As Long
    For li = LBound(alArrBegRows) To UBound(alArrBegRows)
        For lCntR = alArrBegRows(li) To alArrEndRows(li)
            For lCntC = alArrBegCols(li) To alArrEndCols(li)
                If lr = lCntR Then
                    If lc = lCntC Then Intersect_Nums = True: Exit Function
                End If
            Next lCntC
        Next lCntR
    Next li
End Function

Перейти к содержанию

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

Выделение отдельной ячейки

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

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

Выделяем столбец

Выделить столбец в Эксель можно несколькими способами:

1. Зажав левую кнопку мыши тянем ее указатель от первой ячейки до последней, после чего отпускаем кнопку. Действие можно выполнять как сверху вниз (первая ячейка – самая верхняя, последняя – самая нижняя), так и снизу вверх (первая ячейка – самая нижняя, последняя – самая верхняя).
2. Щелкаем по первой ячейке столбца, далее зажав клавишу Shift, кликаем по последней ячейке столбца, после чего отпускаем клавишу Shift. Как и в первом способе, выделение можно выполнять в обе стороны: и вверх, и вниз.
3. Также, вместо мыши вместе с Shift мы можем использовать клавиши навигации. Щелкаем по первой ячейке столбца, далее зажимаем Shift, после чего нажимаем клавишу вверх (или вниз в зависимости от того, какую ячейку мы выбрали в качестве первой – самую верхнюю или самую нижнюю) ровно столько раз, сколько ячеек мы хотим добавить в выделяемый диапазон. Одно нажатие на клавишу – одна ячейка. После того, как все нужные элементы отмечены, отпускаем клавишу Shift.
4. Кликаем по первой ячейка столбца, после чего нажимаем сочетание клавиш Ctrl+Shif+стрелка вниз. В результате будет выделен весь столбец, охватив все ячейки, в которых есть данные. Если мы хотим выполнить выделение снизу вверх, то соответственно, нажимаем комбинацию Ctrl+Shif+стрелка вверх, предварительно встав в самую нижнюю ячейку.Тут есть один нюанс. При использовании данного способа нужно убедиться в том, что в отмечаемом столбце нет пустых элементов, иначе выделение будет произведено лишь до первой незаполненной ячейки.
5. Когда вместо выделения столбца таблицы нужно отметить весь столбец книги, щелкаем по его обозначению на координатной панели (курсор должен изменить свой привычный вид на стрелку, направленную вниз):
6. В случае, когда требуется одновременное выделение нескольких столбцов книги, расположенных подряд, зажав левую кнопку мыши проводим курсором по всем нужным наименованиям столбцов на координатной панели.
7. Также для этих целей можно воспользоваться клавишей Shift. Щелкаем по первому столбцу на панели координат, затем, зажав клавишу Shift, кликаем по последнему, после чего отпускаем клавишу.
8. В случаях, когда столбцы расположены не подряд, зажав клавишу Ctrl на клавиатуре щелкаем на координатной панели по наименованиям всех нужных столбцов, после чего отпускаем клавишу.

Выделяем строку

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

1. Чтобы выделить одну строку в таблице, зажав левую кнопку мыши, проходим по всем нужным ячейкам (слева направо или наоборот), после чего отпускаем кнопку.
2. Кликаем по первой ячейки строки, затем, зажав клавишу Shift, щелкаем по последней ячейке, и отпускаем клавишу. Выполнять данную процедуру можно в обе стороны.
3. Совместно с клавишей Shift вместо левой кнопки мыши можно использовать клавиши навигации. Кликаем по первой ячейке строки, зажимаем клавишу Shift и жмем клавишу вправо (или влево, в зависимости от того, какую ячейку мы выбрали в качестве первой – самую левую или самую правую). При таком выделении одно нажатие навигационной клавиши равно одной выделенной ячейке. Как только мы выделили все требуемые элементы, можно опускать клавишу Shift.
4. Щелкаем по первой ячейке строки, затем жмем сочетание клавиш Ctrl+Shif+стрелка вправо.Таким образом, будет выделена вся строка с охватом всех заполненных ячеек, но с важной оговоркой – выделение будет выполнено до первой пустой ячейки. Если мы хотим выполнить выделение справа налево, следует нажать сочетание клавиш Ctrl+Shif+стрелка влево.
5. Чтобы выделить строку не только таблицы, но и всей книги, кликаем по ее порядковому номеру на координатной панели (вид курсора при наведении на панель должен смениться на стрелку, направленную вправо).
6. Когда требуется одновременное выделение нескольких соседних строк, зажав левую кнопку мыши проходим на координатной панели по всем требуемым порядковым номерам.
7. Когда нужно сразу выделить несколько соседних строк книги, можно использовать клавишу Shift. Для этого кликаем на координатной панели по номеру первой строки, затем зажимаем клавишу Shift, кликаем по последней строке и отпускаем клавишу.
8. Когда требуется выделение строк книги, расположенных не по соседству, зажав клавишу Ctrl на клавиатуре, поочередно щелкаем по обозначениям всех нужных строк на координатной панели.

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

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

1. Зажав левую кнопку мыши проходим по всем ячейкам требуемой области, двигаясь по диагонали:
   • от самой верхней левой ячейки до самой нижней правой
   • от самой нижней правой ячейки до самой верхней левой
   • от самой верхней правой ячейки до самой нижней левой
   • от самой нижней левой ячейки до самой верхней правой
2. Зажав клавишу Shift, кликаем по первой, а затем – по последней ячейкам требуемого диапазона. Направления выделения – те же, что и в первом способе.
3. Встаем в первую ячейку требуемого диапазона, и зажав клавишу Shift, используем клавиши для навигации на клавиатуре, чтобы “дойти” таким образом до последней ячейки.
4. Если нужно одновременно выделить как отдельные ячейки, так и диапазоны, причем, находящиеся не рядом, зажимаем клавишу Ctrl и левой кнопкой мыши выделяем требуемые элементы.

Выделяем все ячейки листа

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

1. Щелкаем по небольшому треугольнику, направленному по диагонали вправо вниз, который расположен на пересечении координатных панелей. В результате будут выделены все элементы книги.
2. Также можно применить горячие клавиши – Ctrl+A. Однако, тут есть один нюанс. Прежде, чем нажимать данную комбинацию, нужно перейти в любую ячейку за пределами таблицы. Если же мы будем находиться в пределах таблицы, то нажав на клавиши Ctrl+A, мы сначала выделим все ячейки именно самой таблицы. И только повторное нажатие комбинации приведет к выделению всего листа.

Горячие клавиши для выделения ячеек

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

• Ctrl+Shift+End – выделение элементов с перемещением в самую первую ячейку листа;
• Ctrl+Shift+Home – выделение элементов с перемещением до последней используемой ячейки;
• Ctrl+End – выделение последней используемой ячейки;
• Ctrl+Home – выделение первой ячейки с данными.

Ознакомиться с более расширенным список комбинаций клавиш вы можете в нашей статье – “Горячие клавиши в Эксель“.

Заключение

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

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

пример

Я хотел бы выбрать ячейки данных определенного столбца для установки проверки данных (что в конечном итоге будет отображать выпадающий список значений, определенных в именованном диапазоне). Но я не хочу, чтобы мои ячейки заголовка данных были включены в этот выбор (поэтому они не будут отображать эти выпадающие списки и не будут проверяться). Что если позже я решу изменить параметры проверки этих ячеек?

Как я могу выбрать свою колонку тогда?

Sidenote

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

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