Sub area_count()

Dim i As Integer
Dim wg1 As Integer
Dim n As String
Dim m As Integer

n = "高切換"
m = 0

For i = 1 To 1000

If Sheets(1).Range("E" & i).Value = n And Sheets(1).Range("C" & i) = 1 Then
wg1 = 1
Else
wg1 = 0
End If

m = m + wg1

Next i

Sheets(1).Range("H1").Value = m

End Sub

提示說
    If Sheets(1).Range("E" & i).Value = n And Sheets(1).Range("C" & i) = 1 Then
出錯(cuò)