Hur går man igenom rader tills ett specifikt värde finns i Excel?

I vissa fall kanske du vill gå igenom raderna en efter en tills ett specifikt värde finns i ett ark. Här introducerar jag en makrokod för att hjälpa dig att slinga data tills ett specifikt värde uppfylls.

Gå igenom tills specifikt värde

---

Gå igenom tills specifikt värde

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikations fönster.

2. klick Insert > Modulerna, klistra in under koden i tomt Modulerna.

VBA: Gå igenom rader tills specifikt värde

Sub LoopUntilSpecificValue()
'UpdatebyExtendoffice20161222
    Dim fStr As String
    Dim strActAddress As String
    Dim fbool As Boolean
    Dim cnt As Long, cntRow As Long
    Dim xRg As Range, yRg As Range, zRg As Range
    fbool = False
    strActAddress = ""
    cnt = 0
    On Error Resume Next
    Set zRg = ActiveSheet.UsedRange
    cntRow = zRg.Rows.Count
   
    Set xRg = Application.InputBox _
        (Prompt:="Range select..", Title:="Kutools for Excel", Type:=8)
    fStr = Application.InputBox _
        (Prompt:="Search string?", Title:="Kutools for Excel", Type:=2)
    Application.ScreenUpdating = False
    For Each yRg In xRg
       
        If yRg.Row > cntRow Then
            MsgBox "Value not found ", vbInformation, "Kutools for Excel"
            Application.ScreenUpdating = True
            Exit Sub
        End If
        If yRg.Value2 = fStr Then
            Application.ScreenUpdating = True
            yRg.Activate
            fbool = True
            strActAddress = yRg.Address
            MsgBox "Value found in cell " & strActAddress, vbInformation, "Kutools for Excel"
            
            Exit Sub
        Else
            cnt = cnt + 1
        End If
        
    Next yRg
    
    If cnt = xRg.Count Then
        MsgBox "Value not found ", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. Tryck F5 , visas en dialogruta för att välja en kolumn att gå igenom. Se skärmdump:

4. klick OK, och skriv strängen du vill hitta i den andra poppade dialogrutan. Se skärmdump:

5. Klicka på OK. Det går igenom markeringen tills det angivna värdet hittades.

Anmärkningar: om inget matchat värde hittades dyker en dialog upp för att påminna dig om att inget matchat värde hittades.