excel中怎么把一列多个单元格内容集中在一个单元格显示,同时用；号分开

Question

如题所述

Answer 1

 sub a()
 nextrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row '设置最后一行
    AR = Range(Cells(2, 1), Cells(nextrow, 1)) '设置要转换的区域
    Cells(nextrow + 2, 1) = Join(Application.Transpose(AR), ";") '多单元格合并到最下面的1个单元格
 EndSub

我是假设你的数据从A列的A2开始,一直到最后A列的最后一行

追问

之间如果有空白能不能让空白不显示？

追答

这个就麻烦了很多，最简单的就是你A列先排序，再运行

追问

帮帮忙了 谢谢 急用

Answer 2

=PHONETIC(A1:B12)

本回答被提问者采纳