VBA – 快速同时选中满足特定条件的列所在行区域

因为需要快速选择单元格区域,使用Ctrl配合鼠标来选择固然可行,但效率实在是低,故想到了使用VBA来提高效率。例如有很多金额列,需要批量选择并设置公式,就可以通过如下代码快速选择。

VBA - 快速同时选中满足特定条件的列所在行区域
Sub sutQuickSelect()
    Dim SelRng As Range
    Dim i, j, m As Integer
    i = 3   '选中起始行
    j = 41  '选中结束行
    For m = Range("C3").Column To Range("BB3").Column ' 满足特定条件的列
        If Cells(i - 1, m) = "金额" Then
            If SelRng Is Nothing Then
                Set SelRng = Range(Cells(i, m), Cells(j, m))
            Else
                Set SelRng = Union(SelRng, Range(Cells(i, m), Cells(j, m)))
            End If
        End If
    Next
    If Not SelRng Is Nothing Then SelRng.Select
End Sub

原创文章,作者:Steven,如若转载,请注明出处:https://www.saveutime.net/quickselect.html

发表评论

登录后才能评论