Excel宏拆分分组后仅返回数组最后值的问题求助

我有36名受试者的列表，包含他们的年龄以及所属的“Control（对照组）”或“Exposed（暴露组）”分组。尝试根据分组将列表拆分为两个数组，但程序虽能正确识别分组，却每个组都重复返回最后一名受试者的年龄18次。确定问题出在嵌套的For循环，但不知如何修复。

原代码：

Dim myArrC(1 To 18) As Variant
myArrC(18) = Array()
Dim myArrE(1 To 18) As Variant
myArrC(18) = Array()
Dim Counter As Integer
Dim i As Integer

For Counter = 2 To 37
For i = 1 To 18
        If Sheets("Participant Info").Cells(Counter, 5) = "Control" Then
          myArrC(i) = Sheets("Participant Info").Cells(Counter, 3).Value
        Else
          myArrE(i) = Sheets("Participant Info").Cells(Counter, 3).Value
        End If
  Next i
Next Counter
Dim COunter2 As Integer
For COunter2 = 1 To 18
MsgBox (myArrC(COunter2))
MsgBox (myArrE(COunter2))

Next COunter2
End Sub

问题原因 #

• 嵌套循环逻辑错误：外层每遍历一个受试者，内层循环就把当前受试者的年龄赋值给目标数组的全部18个位置。最后一个对照组受试者的年龄会覆盖myArrC所有元素，最后一个暴露组受试者的年龄会覆盖myArrE所有元素，导致数组全是重复的最后一条数据。
• 代码笔误：myArrE的初始化错误写成了myArrC(18) = Array()，这行完全无效，且没必要给数组单个元素赋值Array()。

修复后的代码 #

Sub SplitParticipantAges()
    Dim myArrC(1 To 18) As Variant
    Dim myArrE(1 To 18) As Variant
    Dim counter As Integer
    ' 给两个数组分别设置独立的位置计数器
    Dim cIndex As Integer, eIndex As Integer
    cIndex = 1
    eIndex = 1
    
    ' 遍历所有36名受试者（行2到行37）
    For counter = 2 To 37
        If Sheets("Participant Info").Cells(counter, 5).Value = "Control" Then
            ' 把当前对照组受试者年龄存入数组对应位置，计数器自增
            myArrC(cIndex) = Sheets("Participant Info").Cells(counter, 3).Value
            cIndex = cIndex + 1
        Else
            ' 把当前暴露组受试者年龄存入数组对应位置，计数器自增
            myArrE(eIndex) = Sheets("Participant Info").Cells(counter, 3).Value
            eIndex = eIndex + 1
        End If
    Next counter
    
    ' 验证拆分结果
    Dim verifyIndex As Integer
    For verifyIndex = 1 To 18
        MsgBox "对照组第" & verifyIndex & "位年龄：" & myArrC(verifyIndex)
        MsgBox "暴露组第" & verifyIndex & "位年龄：" & myArrE(verifyIndex)
    Next verifyIndex
End Sub

修复说明 #

• 移除嵌套循环，改用独立计数器：每个数组配一个专属计数器，每找到对应分组的受试者，就把年龄放到数组的当前计数器位置，之后计数器加1，确保每个数组元素只被赋值一次。
• 修正了原代码中myArrE初始化的笔误，删除了无效的数组元素赋值语句。
• 优化了消息框提示内容，能清晰看到每个位置的对应数据。

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