EXCEL如何做一个宏将一行数据变成一列数据

Question

如题所述

Answer 1

不用宏
复制整行，选择空白的地方，右键，选择性粘贴，对话框内选择“转置”，OK追问

你说的是可以实现的，但是我就需要不停的重复操作。比如我有2000张excel，那就麻烦了。所以需要做一个宏，实现将第一行的数据转变成为第一列，并且这个宏要放到其他的excel中也可以用。

追答

函数也可以解决啊

假设你的数据在Ａ列，然后右Ｂ１单元格输入函数
=INDIRECT("A"&COLUMN()-1)
向右拉就行了啊

非得要用宏的话，就用下面这段，按自己的需要修改一下，因为你没有说明具体要求，复制哪个区域，转置到哪个固定的区域

Sub 录制宏()

Range("A1:A19").Select
Application.CutCopyMode = False
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub