Mam następujący kod i robi dokładnie to, czego potrzebuję, ale pętla trwa o wiele za długo (3 minuty +). Jestem nowy w VBA, więc nie jestem do końca pewien 1) jaka jest najlepsza alternatywa 2) jak użyć właściwej składni dla tej alternatywy i czy mój kod działa bez zarzutu. Dzięki!

Dim i As Integer
For i = 2 To 13000

If Sheets("Sheet1").Range(Cells(i, 3), Cells(i, 3)) = "Police" 
    And Sheets("Sheet1").Range(Cells(i, 14), Cells(i, 14)) = "Bi-wkly Uniform Pay" Then _
Sheets("Sheet1").Range(Cells(i, 3), Cells(i, 3)) = "Police - Uniform"

Next i