
VBA
=IF(ROW()ROUNDUP(COLUMN()-2)/(COUNTA($A:$A)/(COUNTA(1:1)-1)),",",INDEX($A:$A,ROUNDUP(COLUMN()-2)/(COUNTA($A:$A)/(COUNTA(1:1)-1))*(COLUMN()-2)+ROW()))然后,向右拖动此公式以复制到所需数量的列,并选择B1到最后一列,在底部向下拖动此公式以确保所有空白单元格都被填充。2. 其次,在起始单元格B1输入以下公式:=IF(ROW()ROUNDUP(COLUMN()-1)/(COUNTA($A:$A)/(COUNTA(1:1)-1)),",",INDEX($A:$A,(ROW(A1)-1)*(COUNTA(1:1)-1)+COLUMN(A1)))然后,向右拖动此公式以复制到所需数量的列,并选择B1到最后一列,在底部向下拖动此公式以确保所有空白单元格都被填充。以上两种方法都需要在选项卡中打开迭代计算。请注意,以上方法适用于数据列可能不正好是平方数的情况。如果数据列正好是平方数,则可以直接使用条件格式或VBA脚本来实现自动填充。希望这些方法能够帮助到您!如有其他问题,请随时向我咨询。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号