不知道你所谓的“分行显示”是什么意思？
如果是直接把A的拷贝到B的，可以用COPY。有人已经给出方法了。
如果是把A列单元格中的数据拷贝到B列，每隔N复制一个，可以用 FOR EACH …… NEXT 语句做个拷贝，至于目的单元格，可以用偏移，或者用CELL函数，行的位置可以按倍数来处理。
如果是把A列的的数据，显示到B列， 在单元格内换行的话， 也需要循环， 然后按指定的条件处加换行符即可。换行符可以使用CHR(10).
关键问题是你的问题没有表达清楚,有歧义.
调出粘贴板，然后在B1的编辑框内粘贴好了。
selection.copy rang("B1")
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024