Question

excel里的文字太长，想要自动排列到右边

excel里的文字太长，无法显示到一页里，需要不停的复制粘贴到另外一边，太麻烦了。请问如何自动复制到右边。如图，左边的图，想要自己动排列成后边的那张。如何做到？





Answer 1

• 选中页面大小后，（选中后就不要点击鼠标），直接录入数据，当超过20行的时候，自动转向下一列，录入数据即可：

  

• 选中之后，不能点击鼠标，不能按方向键，调整单元格需使用以下快捷键：

  enter（回车）：移动单元格向下

  Shift+Enter：移动单元格向上

  Tab：移动单元格向右

  shift+tab：移动单元格向左

以上资料供参考

追问

我看懂你的意思了，但是我开始的时候不是手工输入的，是复制粘贴的。

我复制粘贴过来就是很长的一条

追答

也一样的啊· ·用键盘选择要输入的单元格，用键盘粘贴，这是不能用鼠标操作

Answer 2

全部选中 整体居中右有个整体靠右 齐了

追问

不是，不是全部跟a条排列，
是b条和a条排列，
c条和b条排列，以此类推。

发错了……

我不是要对齐，
我是希望能够a条，多出来的部分，排列到b条c跳d条去。

追答

A选中整行居右 B整体居左 是这种么

追问

不是
是a条单词太多太长，
我需要把a条第二页的单词自动，排列到b条，c条，每条正好60个单词。

追答

专业了 不好意思我也不会····

追问

谢谢你

Answer 3

VBA可以做到，这个不难

追问

具体在excel里面怎么做？

追答

1 2 3 4 5 6 7

Sub 整理() Dim num As Integer num = 30  '想多少个一列就写多少 For i = 1 To [A65536].End(xlUp).Row Step num Cells(i, 1).Resize(30, 2).Cut Cells(1, 2 * (i + num - 1) / num - 1) Next End Sub’

测试无误，运行前

运行后

追问

好高级，我研究下，这个公式请问在哪里输入……

追答

代码放到模块里，用之前备份

追问

不是我问这个公式excel里哪里输入？

追答

模块里

追问

好的，我先试试，谢谢

搞定了，谢谢

我还有别的问题，重新发一个问题，也请帮我看嘻嘻

追答

可以留QQ