无需VBA动态重排Excel数组保留原始数据顺序实现横竖转换

架构老林

2026-7-7

动态适配分组的Excel数组转换方案

针对你需要将竖排分组数据转换为横排并适配Input_array变化的需求，这里提供一个无需手动指定分组值的动态方案，基于Excel动态数组函数实现：

核心公式（固定目标行数4行）

=LET(
    unique_groups, UNIQUE(Input_array),
    processed_groups, BYCOL(unique_groups, LAMBDA(g, 
        VSTACK(
            FILTER(Array_1, Input_array=g),
            IF(SEQUENCE(4-ROWS(FILTER(Array_1, Input_array=g))), {"",""})
        )
    )),
    HSTACK(processed_groups)
)

完全动态适配分组行数的版本

如果不想固定目标行数，而是自动匹配最大分组的行数（比如Input_array中某个分组有4条数据，就自动以4行为基准补全其他分组），可以用这个版本：

=LET(
    unique_groups, UNIQUE(Input_array),
    max_group_rows, MAX(COUNTIF(Input_array, unique_groups)),
    processed_groups, BYCOL(unique_groups, LAMBDA(g, 
        VSTACK(
            FILTER(Array_1, Input_array=g),
            IF(SEQUENCE(max_group_rows-ROWS(FILTER(Array_1, Input_array=g))), {"",""})
        )
    )),
    HSTACK(processed_groups)
)

公式说明

UNIQUE(Input_array)：自动提取Input_array中的所有唯一分组值，不管分组新增、删除还是顺序变化，都能自动识别，无需手动修改公式中的分组标识。
BYCOL(..., LAMBDA(...))：遍历每个唯一分组，对Array_1进行过滤，然后用VSTACK补上空行（每行是两个空值，对应Array_1的2列结构），确保每个分组的输出行数一致。
HSTACK(processed_groups)：将所有处理后的分组横向拼接，得到最终的横排数组。