VBA嵌套循环实现i组j项的连续索引生成

首先明确变量定义，避免混淆：

• 总组数记为 G（对应你说的“编号从1到i”）
• 第 g 组（g 从1到G）包含 num_items_g 个项目
• 组内项目序号记为 k（k 从1到num_items_g）

两种实现方式 #

方式1：维护累计索引（最直观，无需计算前缀和） #

直接用一个变量跟踪当前索引，嵌套循环里每次递增，逻辑简单易懂：

# 示例数据：对应你示例里的组1(3)、组2(2)、组3(4)
group_item_counts = [3, 2, 4]
current_index = 1

for g in range(len(group_item_counts)):
    group_num = g + 1  # 组号从1开始
    num_items = group_item_counts[g]
    for k in range(1, num_items + 1):
        print(f"组{group_num}的第{k}个项目，索引：{current_index}")
        current_index += 1

运行后输出和你示例完全一致：

组1的第1个项目，索引：1
组1的第2个项目，索引：2
组1的第3个项目，索引：3
组2的第1个项目，索引：4
组2的第2个项目，索引：5
组3的第1个项目，索引：6
组3的第2个项目，索引：7
组3的第3个项目，索引：8
组3的第4个项目，索引：9

方式2：通过前缀和公式计算索引 #

如果不想维护累计变量，可以先计算前g-1组的项目总数，再加上当前组内的项目序号 k，就是目标索引：

1. 构建前缀和数组，prefix_sum[g] 表示前g组的项目总数（prefix_sum[0] = 0）
2. 第g组第k个项目的索引 = prefix_sum[g-1] + k

示例代码：

group_item_counts = [3, 2, 4]
# 计算前缀和：prefix_sum[0]=0，prefix_sum[1]=3，prefix_sum[2]=5，prefix_sum[3]=9
prefix_sum = [0]
for count in group_item_counts:
    prefix_sum.append(prefix_sum[-1] + count)

for g in range(1, len(prefix_sum)):
    num_items = group_item_counts[g-1]
    for k in range(1, num_items + 1):
        index = prefix_sum[g-1] + k
        print(f"组{g}的第{k}个项目，索引：{index}")

你之前公式失败的原因 #

你尝试的 index = j + (i-1)*j 等公式，默认了所有组的项目数完全相同，但你的示例里每组项目数不同（3、2、4），这类固定倍数的公式自然不适用。只有当所有组的项目数都是固定值 m 时，公式才是 index = k + (g-1)*m（k是组内序号，g是组号）。

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