给你个批量处理的方法，分4步完成
1，b1输入公式=char(10),下拉到底，选中这些公式，复制，右键该范围，选择性粘贴选数值，确定，
2，c1=IF(LENB(LEFT(A1))=2,IF(COUNT(MATCH(1=1,CODE(A2:A100)>1000,0)),MATCH(1=1,CODE(A2:A100)>1000,0),COUNTA(A1:A100)),"")数组公式，同时按ctrl+shift+回车三键结束，下拉到底
,3，d1输入公式=IF(LENB(LEFT(A1))=2,PHONETIC(OFFSET(A1:B1,,,C1)),"")下拉
4，设置d列单元格格式，对齐，勾自动换行，确定即可追问 : 请问怎么批量？另外就是答案怎么批量设置到另外一列？
追答 : 设置E列为“自动换行”，然后在E1单元格输入以下公式，向下填充公式=OFFSET(A$1,(ROW(A1)-1)*5,)&CHAR(10)&OFFSET(A$2,(ROW(A1)-1)*5,)&CHAR(10)&OFFSET(A$3,(ROW(A1)-1)*5,)&CHAR(10)&OFFSET(A$4,(ROW(A1)-1)*5,)&CHAR(10)&OFFSET(A$5,(ROW(A1)-1)*5,)
1，b1输入公式=char(10),下拉到底，选中这些公式，复制，右键该范围，选择性粘贴选数值，确定，
2，c1=IF(LENB(LEFT(A1))=2,IF(COUNT(MATCH(1=1,CODE(A2:A100)>1000,0)),MATCH(1=1,CODE(A2:A100)>1000,0),COUNTA(A1:A100)),"")数组公式，同时按ctrl+shift+回车三键结束，下拉到底
,3，d1输入公式=IF(LENB(LEFT(A1))=2,PHONETIC(OFFSET(A1:B1,,,C1)),"")下拉
4，设置d列单元格格式，对齐，勾自动换行，确定即可追问 : 请问怎么批量？另外就是答案怎么批量设置到另外一列？
追答 : 设置E列为“自动换行”，然后在E1单元格输入以下公式，向下填充公式=OFFSET(A$1,(ROW(A1)-1)*5,)&CHAR(10)&OFFSET(A$2,(ROW(A1)-1)*5,)&CHAR(10)&OFFSET(A$3,(ROW(A1)-1)*5,)&CHAR(10)&OFFSET(A$4,(ROW(A1)-1)*5,)&CHAR(10)&OFFSET(A$5,(ROW(A1)-1)*5,)