230问答网 > 如何将excel下一页中的一列移到上一页的一列中，页数比较多，直接剪切太麻烦了

如何将excel下一页中的一列移到上一页的一列中，页数比较多，直接剪切太麻烦了

上下是分了页的

2025-01-08 06:11:14

推荐回答（3个）

回答1：

你试试这个办法看要轻松点不。点击【工具】-【宏】-【VB编辑器】。把下面的代码复制进去，按F5后，点【运行】。实现效果是：把a21：a40内容，剪切到B1：B20。只需改变这2个区域即可实现大量的工作，每次改了按下F5点运行。注意：区域大小要相等，比如我这个例子就都是20个。
其实，如果你的数据特别多的话，还可以实现自动化，不用每次手动改。这个就需要知道有多少行，需要粘贴多少列，每列多少个。
Sub test()
With Range("a21:a40")
Range("b1:b20").Value = .Value
.Clear
End With
End Sub

回答2：

你写个函数还得往下拉，还不如直接复制。

回答3：

=INDEX($A:$A,(COLUMN(A1)-1)*20+ROW(A1))
右拉复制，下拉复制。
我给的公式是每列20个的。自己可以改。