从范围字符串中选择多个范围

Question

我正在尝试同时 select 多个范围。 IE。 B2:C2, B12:C12, B14:C14.

更新代码

Sub MarkForDMSLookup()
Dim MarkingString As String
Dim MarkingRange As String

j = 0

For i = 3 To 20 'LastRow()
    If Cells(i, 5) = "Yes" Then
        j = j + 1
        MarkingRange = "B" & i & ":C" & i
        'MsgBox MarkingRange
        If j = 1 Then MarkingString = MarkingRange
        If j > 1 Then MarkingString = MarkingString & ", " & MarkingRange

        If Cells(i, 5) = "No" Then Cells(i, 5).EntireRow.Hidden = True

    End If
Next i

'MsgBox MarkingString

Union(MarkingString).Select
End Sub

Union标签给我一个类型不匹配。任何对对齐类型的帮助将不胜感激。

当限制 for 循环从 2 到 20 时，我可以使用 Range 标签而不是 Union。

Answer 1

我只想使用自动过滤器而不是循环：

Sub MarkForDMSLookup()
    Dim j As Long
    j = 0

    With Range("E2:E" & LastRow())
        .AutoFilter field:=1, Criteria1:="Yes"
        On Error Resume Next
        .Resize(.Rows.Count - 1).Offset(1, -3).Resize(, 2).SpecialCells(xlCellTypeVisible).Select
        On Error GoTo 0
    End With

End Sub
Function LastRow()
    LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
End Function

Answer 2

Sub MarkForDMSLookup()
Dim MarkingString As String, _
    MarkingRange As String, _
    FirstRun As Boolean, _
    RgMarking As Range, _
    RgTotal As Range, _
    CounT As Long, _
    ToTaL As Long

FirstRun = True
CounT = 0
ToTaL = 0
Set RgTotal = Nothing

For i = 3 To LastRow
    If Cells(i, 5) <> "Yes" Then
        If Cells(i, 5) = "No" Then Cells(i, 5).EntireRow.Hidden = True
    Else
        MarkingRange = "B" & i & ":C" & i
        CounT = CounT + 1
        ToTaL = ToTaL + 1
        If FirstRun Then
            MarkingString = MarkingRange
            FirstRun = False
        Else
            MarkingString = MarkingString & ", " & MarkingRange
        End If
        If CounT <> 20 Then

        Else
            On Error GoTo ErrHandler
            Set RgMarking = Range(MarkingString)
            Set RgTotal = Union(RgTotal, RgMarking)
            On Error GoTo 0
            MarkingString = vbNullString
            FirstRun = True
            CounT = 0
        End If
    End If
Next i

Set RgTotal = Union(RgTotal, RgMarking)
RgTotal.Select
Exit Sub

ErrHandler:
MsgBox Err.Description & vbCrLf & Err.Number
Resume Next
End Sub

从范围字符串中选择多个范围

Selecting multiple ranges from string of ranges

excel

union

vba

range