VBA处理Excel里的两个问题！求助。。。。。。。。。。。。。。。

[Dotar]

Excel文件中有一个首页sheet ,n个其他sheet表，如下图：


除了首页 ，其他页面中数据如下图都是横向排列：



我想用VBA统一 把这横向排列的变为竖向排列的 从A2向下排 ，要求的效果


列名 有返回首页的功能 ，最好第一列能全部固定不动的那种 ，求帮忙 谢谢！

[Dotar]

人呢。。。。。。。。。。。。。。。。

[dsd999]

就是空表？还没有数据？

[Dotar]

引用 2 楼 dsd999 的回复:

就是空表？还没有数据？

空表 每个sheet就一行

[xiaodeerdeer]

去循环每个for each in 去循环每个sheet也循环到那个 对那个进行替换 就OK了啊

[dsd999]

Sub Convt()


Dim ws As Worksheet

For Each ws In Worksheets
ws.Activate
ws.Rows("1:1").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
Range("A1").Select
Next

End Sub

[jardyson]

录制宏，操作一个表,复制，剪切，结束录制，这是改变数据位置代码。 在这层代码外头加个除了首页的循环