有没有一种方法可以将一列中的值数组分配给一个变量？

Question

我正在尝试将列中的所有值分配给变量，当前，它无法正确读取它们。现在没有编译错误或运行时错误，仅是逻辑错误。任何见解都将非常有帮助

我已经尝试过将它们创建为对象，并使用“设置”。

Dim countrow As Integer
Dim P(), T() As Variant
Dim i As Integer
Dim numrow As Long

numrow = Rows(Rows.Count).End(xlUp).row
P = Range(Cells(3, 1), Cells(numrow, 1)).Value
T = Range(Cells(3, 2), Cells(numrow, 2)).Value

ReDim P(numrow) As Variant
ReDim T(numrow) As Variant

countrow = 0

For i = 3 To numrow - 1
   If P(i) = 5 And T(i) = 100 Then
      countrow = countrow + 1                       
   End If
Next i

MsgBox (countrow)

我期望输出为25，但实际输出为0。这意味着它没有在每个单元格中读取真实值。我试图计算在其单元格中有多少行同时满足P = 5和T = 100。