모든 행에 대해 Excel VBA 코드 만들기

Question

하나의 결함이있는 것처럼 작동하는 문을 만들었습니다. 첫 번째 행은 내 시트의 두 번째 행에서만 작동합니다. 첫 번째 행은 머리글 행을 포함합니다.

시트 내의 모든 행에 대해 어떻게 작동하게 할 수 있습니까? 시트는 날마다 다양한 수의 행을 가지고 있습니다.

Dim result As String 
Adnet = Range("AB2").Value 
TSNumber = Range("BQ2").Value 

If (Adnet = "goog" Or Adnet = "bing" Or TSNumber = "8006522096" Or TSNumber = "8006522097" Or TSNumber = "8006522098") Then 
    result = "PPC" 
Else 
    result = "None/Other" 
End If 

Range("AC2").Value = result 
End Sub 

Answer 1

방법에 대해 :

Sub qwerty() 
    Dim result As String, N As Long, i As Long 
    N = Cells(Rows.Count, "AB").End(xlUp).Row 
    For i = 2 To N 
     Adnet = Range("AB" & i).Value 
     TSNumber = Range("BQ" & i).Value 
     If (Adnet = "goog" Or Adnet = "bing" Or TSNumber = "8006522096" Or TSNumber = "8006522097" Or TSNumber = "8006522098") Then 
      result = "PPC" 
     Else 
      result = "None/Other" 
     End If 
     Range("AC" & i).Value = result 
    Next i 
End Sub