Как отменить выбор конкретных данных в Excel VBA?

Question

Хорошо, поэтому мне нужно выбрать все использованные диапазоны, кроме первого (диапазон A).Поэтому я выбрал все используемые диапазоны, используя UsedRange.Select, и теперь мне нужно отменить выбор первого диапазона.Есть ли способ сделать это?

Answer 1

Вы можете использовать Intersect для пересечения UsedRange со столбцами от 2 до x, где x - последний столбец используемого диапазона. Таким образом, столбец A исключается.

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

Option Explicit

Public Sub SelectUsedRangeExceptColumnA()
    Dim UsedRangeExceptColumnA As Range
    Set UsedRangeExceptColumnA = Intersect(UsedRange, Range(Columns(2), Columns(UsedRange.Columns.Count + UsedRange.Column - 1)))

    If Not UsedRangeExceptColumnA Is Nothing Then
        UsedRangeExceptColumnA.Select
    End If
End Sub