分配给Matrix的For循环中的迭代IF条件

Question

我正在尝试使用嵌套for循环将值从一个工作表（DATA）分配给矩阵（TaskArray（））。我的问题是IF语句在满足时将被分配给相应TaskArray（）行中的所有值。如何在嵌套for循环中设置奇异的IF（或布尔）条件，只能识别一次？

Dim TaskArray(1 to 10, 1 to 300) as String

For i = 1 to 300
   For j = 1 to 10
   If Sheets("DATA").Cells(i,1).Value = TRUE Then
   TaskArray(1, AA) = Sheets("DATA").Cells(i,4).Value
   AA = AA + 1

   If Sheets("DATA").Cells(i,2).Value = TRUE Then
   TaskArray(1, BB) = Sheets("DATA").Cells(i,4).Value
   BB = BB + 1
End if
Next j
Next i

谢谢！