Perl Excel模块set_row方法批量及自定义行高设置问题咨询

你当前调用的set_row()是Perl处理Excel最常用的Excel::Writer::XLSX模块提供的行操作方法，针对你提出的两个问题，具体实现方式如下：

一次性统一设置所有行行高 #

模块没有提供单条指令覆盖所有已存在行高的原生方法，可根据场景选以下两种高效实现，无需逐行手写重复代码：

• 固定总行数场景：用for循环遍历行号范围批量调用即可

# 示例：给0到99共100行统一设置行高为40
for my $row_idx (0..99) {
    $worksheet->set_row($row_idx, 40);
}

• 不确定总行数场景：调用set_default_row()方法设置工作表全局默认行高，所有未单独配置高度的行都会自动应用该值，无需逐行调用

# 全局默认行高设为40
$worksheet->set_default_row(40);

设置非均匀差异化自定义行高 #

该方法完全支持自定义不同行的高度，你只需要给对应行号传入目标高度值即可实现效果。
如果需要设置的差异化行数量少，可以直接逐行调用：

# 实现第一行行高20、第二行40、第三行15的效果（行号从0开始计数，和Excel界面显示行号差1）
$worksheet->set_row(0, 20);
$worksheet->set_row(1, 40);
$worksheet->set_row(2, 15);

如果需要设置的差异化行数量多，推荐将行高按行号顺序存入数组后批量遍历，代码更易维护：

# 数组索引对应行号，值为对应行要设置的高度
my @custom_heights = (20, 40, 15, 30, 22, 18);
for my $row_idx (0..$#custom_heights) {
    $worksheet->set_row($row_idx, $custom_heights[$row_idx]);
}

注意：单独通过set_row()设置的行高优先级高于set_default_row()设置的全局默认值，两类方法可以搭配使用。

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