vba - 偏移到另一列并在满足条件时停止

Question

如果我有一个数据集是 5x5。

0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 1

我想将我的选择移动到单元格为 1。

我写了一个宏，但我只能要求它在单元格为 1 时停止。

当 5 列通过后，我不知道如何告诉 excel 转移到另一行。

谁能告诉我该怎么做？

谢谢。

Sub macro1()
'
Range("A2").Select
Do
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell.Value = 1
End Sub

Answer 1

您可以找到您要查找的内容，而不是遍历所有单元格。从您提供的代码来看，您的数据似乎从 A2 开始。

Sub Find_One()
    Dim rng As Range, oC As Range, s As String
    s = 1    ' this is what you want to find
    Set rng = Range("A2:E6")

    Set oC = rng.Find(what:=s, lookat:=xlWhole)

    If Not oC Is Nothing Then
        Cells(oC.Row, oC.Column).Select
    Else: MsgBox "Not Found"
        Exit Sub
    End If

End Sub

如果“1”将多次出现，那么此代码将适合您。

Sub Select_1()
    Dim FrstRng As Range
    Dim UnionRng As Range
    Dim c As Range

    Set FrstRng = Range("A2:E6")

    For Each c In FrstRng.Cells

        If c = 1 Then
            If Not UnionRng Is Nothing Then
                Set UnionRng = Union(UnionRng, c)    'adds to the range
            Else
                Set UnionRng = c
            End If
        End If

    Next c

    UnionRng.Select

End Sub