Найти и изменить значение в Excel Multi

Question

У меня есть два одинаковых номера, после которых я хочу отсортировать, но я хочу изменить только один из них.

Sub replace_sales()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    For i = 1 To 10000
        If ws.Cells(i, 1) = "1932597" Then
            ws.Cells(i, 9) = "0"
        End If
    Next i
Next ws

End Sub

Answer 1

просто поместите и Exit For для выхода из текущей петли листа ws при первом совпадении:

Sub replace_sales()

    Dim ws As Worksheet
    Dim i As Long

    For Each ws In ActiveWorkbook.Worksheets
        For i = 1 To 10000
            If ws.Cells(i, 1) = "1932597" Then
                ws.Cells(i, 9) = "0"
                Exit For
            End If
        Next i
    Next ws

End Sub