excel在宏里对各个工作表设置行高

可以用下面代码遍历设置

sub test()dim i as integerfor i=1 to activeworkbook.sheets.countsheets(i).Rows().RowHeight = 16.5next iend sub