如何简化VBA代码实现非连续区域填充？

我正在重写一个联赛管理用的电子表格，已签到人员姓名存于B列，将其存入数组随机排序后，要分配到右侧的卡片区域（每4人一张卡片）。现在这段重复的循环代码能不能简化？

当前表格布局：

原始代码问题分析 #

原代码通过大量重复的If-Else分支和For循环填充每张卡片，逻辑冗余，后续维护（比如调整卡片位置、增加卡片数量）会非常麻烦。

简化后的代码 #

Sub DivideIntoCards(playerArr As Variant)
    Dim totalPlayers As Integer
    Dim totalCards As Integer
    Dim cardIndex As Integer
    Dim rowOffset As Integer
    Dim colOffset As Integer
    Dim playerIdx As Integer
    
    totalPlayers = UBound(playerArr) - LBound(playerArr) + 1
    
    ' 仅处理人数为4的倍数的情况，与原逻辑保持一致
    If totalPlayers Mod 4 <> 0 Then Exit Sub
    
    totalCards = totalPlayers \ 4
    
    With ActiveSheet
        For cardIndex = 0 To totalCards - 1
            ' 计算卡片起始行：每2张卡片向下偏移7行（12 → 19 → 26...）
            rowOffset = 12 + (cardIndex \ 2) * 7
            ' 计算卡片列：偶数索引卡片在11列，奇数在16列，交替排列
            colOffset = IIf(cardIndex Mod 2 = 0, 11, 16)
            
            ' 填充当前卡片的4个人员位置
            For playerIdx = 0 To 3
                .Cells(rowOffset + playerIdx, colOffset) = playerArr(cardIndex * 4 + playerIdx)
            Next playerIdx
        Next cardIndex
    End With
End Sub

简化思路 #

1. 提取规律：卡片的行位置每2张增加7，列位置在11和16之间交替，用数学计算替代硬编码的区间判断
2. 统一循环：通过cardIndex遍历所有卡片，每张卡片对应数组中连续的4个元素，直接通过下标计算定位
3. 减少冗余：去掉重复的分支和循环结构，代码逻辑更清晰，后续调整卡片布局只需修改行起始值、行增量或列值即可

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