VBA中判断A1列 等于5小于10的个数

gqx3563610

我下面这个做出来的不对，我想找=18<24的个数，应该怎么写，最近觉得有点蒙

Sub TAT蹲羆()
Dim i As Long, w As Worksheet, r As Worksheet, e As Worksheet
Set w = Worksheets(1)
Set e = Worksheets(2)
i = 2
Do While e.Cells(i, 1) <> ""
If e.Cells(i, 8) = 18 < 24 Then
w.Cells(19, 7) = w.Cells(19, 7) + 1
End If

i = i + 1
Loop

过江龙

A1列是整数吗？
Sub TAT蹲羆()
Dim i As Long, w As Worksheet, r As Worksheet, e As Worksheet
Set w = Worksheets(1)
Set e = Worksheets(2)
i = 2
Do While e.Cells(i, 1) <> ""
If e.Cells(i, 1) < 10 and  (e.Cells(i,1) > 5 or e.Cells(i,1) = 5) Then
w.Cells(19, 7) = w.Cells(19, 7) + 1
End If

i = i + 1
Loop