嵌套For循环中迭代IF条件的矩阵赋值问题求解

我来帮你搞定这个数组赋值的坑！你现在遇到的核心问题是IF条件被内层循环重复触发——因为你把只和外层循环变量i相关的判断，放到了遍历j的内层循环里，导致每次j循环都会检查一次条件，自然会重复给数组赋值。

先拆解下你原代码的问题：

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 +...

这里的Sheets("DATA").Cells(i,1).Value只和第i行有关，和j完全没关系，所以当条件满足时，j从1到10的循环会执行10次赋值操作，直接把TaskArray的第1行多个位置都塞满同一个值，还会让AA快速递增。

下面给你两种针对性的解决方案：

方案1：去掉冗余内层循环，直接在外层控制触发 #

如果你的j循环是多余的（比如不需要遍历数组的10行），直接把IF条件移到外层循环里，确保每一行只判断一次：

Dim TaskArray(1 To 10, 1 To 300) As String
Dim AA As Integer
AA = 1 ' 先初始化AA，从数组第1列开始填充

For i = 1 To 300
    ' 只在当前i行判断一次条件
    If Sheets("DATA").Cells(i, 1).Value = True Then
        ' 给数组指定位置赋值（这里是第1行，AA列）
        TaskArray(1, AA) = Sheets("DATA").Cells(i, 4).Value
        AA = AA + 1 ' 只有条件满足时才递增AA
        ' 加个防护，防止数组越界
        If AA > 300 Then Exit For
    End If
Next i

方案2：保留嵌套循环，用布尔变量控制仅触发一次 #

如果确实需要遍历j（比如要给数组的第j行赋值），可以加一个布尔标记变量，确保条件满足时只执行一次赋值：

Dim TaskArray(1 To 10, 1 To 300) As String
Dim AA As Integer
Dim isTriggered As Boolean ' 标记是否已经执行过赋值
AA = 1

For i = 1 To 300
    isTriggered = False ' 每轮i循环重置标记
    For j = 1 To 10
        ' 只有条件满足且未触发过，才执行赋值
        If Sheets("DATA").Cells(i, 1).Value = True And Not isTriggered Then
            TaskArray(j, AA) = Sheets("DATA").Cells(i, 4).Value
            AA = AA + 1
            isTriggered = True ' 标记为已触发，后续j循环不再执行
            If AA > 300 Then Exit For
        End If
    Next j
    If AA > 300 Then Exit For
Next i

核心要点总结 #

• 条件位置要匹配变量范围：如果条件只和外层循环变量有关，就把它移到外层，避免内层循环重复判断。
• 布尔标记是嵌套循环的利器：必须在嵌套循环里判断时，用布尔变量做开关，确保操作仅执行一次。
• 记得防数组越界：给AA加上限判断，避免超过数组的定义范围导致运行时错误。

内容的提问来源于stack exchange，提问作者mattyb