excel中，怎样将多列变成一行。我要批理自动转换（重点）

Question

比如有A1,A2,A3...数据 想移动成A1,B1,C1... 如果是一个个转换我会的，就是复制 选择性粘贴 数值 转置 因为数据太多了而且有时候会出现A1，A2，A3，A4... 要换成A1,B1,C1,D1... 所以有点难。要用到宏，但我不知道怎么做。

Answer 1

1.新建一个宏，直接停止录制，并保存退出
2.按alt+F11,进入vba编辑模式
3.将以下代码复制到模块1，覆盖原来的sub
Macro1()
Sub
Macro1()
'
快捷键:
Ctrl+k
Range("A1:B1").Resize(ActiveCell.Row(),
1).Copy
Range("B1").Select
Selection.PasteSpecial
Paste:=xlPasteAll,
Operation:=xlNone,
SkipBlanks:=
_
False,
Transpose:=True
End
Sub
4.在A列输入数据，并将光标停留在你要转换的最后一行，然后按快捷键Ctrl+k
转置后的数据就会从B1开始排列
注意：无法从A1开始向右排，转置这一动作要操作的区域，不能覆盖原始数据所在单元格