如何进行如下的excel转换

Question

请帮我为大数据列表执行此操作

这是可用的

ID  Region  E mail 1    E mail 2    E mail 3
A1   B1      E11           E22       E33
A2   B2      E12           E23       E34
A3   B3      E13           E24       E35

这就是我需要的

ID  Region  E mail 1    E mail 2    E mail 3

A1   B1      E11        
             E22        
             E33        
A2   B2      E12        
             E23        
             E34        
A3   B3      E13        
             E24        
             E35        

A enter image description here

Answer 1

你需要取消第一张桌子。

使用免费Excel Add-In Power Query这很简单，您只需要关注these steps即可。 如果您不想使用Power Query，可以按照超级用户this question的答案之一进行操作。

Answer 2

谢谢......我发现了这样的事情......

Sub transpose_in_place（）     Dim rw As Long，cl As Long     使用ActiveSheet         对于rw = .Cells（Rows.Count，1）.End（xlUp）.Row To 2 Step -1             对于cl = .Cells（rw，Columns.Count）.End（xlToLeft）.Column To 3 Step -1                 如果不是IsEmpty（.Cells（rw，cl））那么                     .Rows（rw + 1）。插入                     .Cells（rw + 1,1）= .Cells（rw，1）.Value2                     .Cells（rw + 1,2）= .Cells（rw，cl）.Value2                     .Cells（rw，cl）。清除                 万一             下一个cl         下一个rw     结束 结束子