如何在Excel VBA中取消选择特定数据？

Question

好，所以我需要选择除第一个范围（A范围）以外的所有用完的范围。因此，我使用UsedRange.Select选择了所有使用的范围，现在我需要取消选择第一个范围。有什么办法吗？

Answer 1

您可以使用Intersect将UsedRange与2到x列相交，其中x是所使用范围的最后一列。这样，排除了A列。

但是您应该避免使用Select，这是一个非常糟糕的做法，会使您的代码运行缓慢且不可靠：How to avoid using Select in 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