如何用Excel VBA实现按指定列引用号生成自定义起始的递增序列

场景1：同一引用号组从组内第一行的K值开始递增 #

如果需求是同一B列引用号的所有行，共用该组第一行的K列值作为起始，后续每行序号+1，可使用以下公式：

假设要在A列生成序号，数据从第2行开始（第1行为表头），在A2单元格输入：

=MINIFS($K$2:$K$100, $B$2:$B$100, B2) + COUNTIF($B$2:B2, B2) - 1

下拉填充到所有数据行即可。

公式逻辑： #

• MINIFS($K$2:$K$100, $B$2:$B$100, B2)：定位当前行B列引用号对应组中K列的最小值（即组内第一行的K值，若数据按引用号排序则直接取首行值）
• COUNTIF($B$2:B2, B2)：计算从第2行到当前行，与当前行B列值相同的行数，即当前行在组内的位置（从1开始计数）
• 两者相加再减1，得到从组起始K值开始的连续递增序号

场景2：每个行的序号以自身K值为基础递增 #

如果需求是每个行的序号 = 自身K列值 + 同组内在它之前出现的相同引用号数量（同一引用号的行后一行比前一行大1，新引用号行直接用自身K值作为起始），可使用：

在A2单元格输入：

=K2 + COUNTIF($B$2:B1, B2)

下拉填充即可。

公式逻辑： #

• COUNTIF($B$2:B1, B2)：统计当前行之前（从第2行到上一行），与当前行B列值相同的行数
• 加上自身K列值，实现同一引用号的行依次递增1，新引用号组直接以当前行K值作为起始

动态数组版本（Excel 365/2021） #

如果使用支持动态数组的Excel版本，可一次性生成所有序号，无需手动下拉：

对应场景1：

=MINIFS(K:K, B:B, B:B) + BYROW(B:B, LAMBDA(x, COUNTIF($B$2:x, x))) - 1

对应场景2：

=K:K + BYROW(B:B, LAMBDA(x, COUNTIF($B$2:INDIRECT("B"&ROW(x)-1), x)))

注意：动态数组公式会自动溢出到整列，需确保目标列无其他数据。

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