excel行转列的宏

按 ALT+F11 调出 VBA 窗口，插入一个模块，把下面代码复制进去。Sub abcd()For i = 1 To 5修改' 5,行的个数, 这里表示第 0 到 5 行（可以修改成你要的行数）s