Как сделать первенствовать преобразование, как показано ниже

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   

enter image description here

Answer 1

Вам не нужно открывать свой первый стол.

Использование бесплатного Excel Add-In Power Query легко, и вам просто нужно следовать these steps. Если вы не хотите использовать Power Query, вы можете выполнить один из ответов от this question на Super User.

Answer 2

Thanks..I нашел некоторые вещи, как это ..

Sub transpose_in_place() Dim RW As Long, ХЛ 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 Если Not IsEmpty (.Cells (rw, cl)) Затем .Rows (rw + 1) .Insert .Cells (rw + 1, 1) = .Cells (rw, 1) .Value2 .Cells (rw + 1, 2) = .Cells (rw, cl) .Value2 .Cells (rw, cl). Очистить End If Следующий cl Следующий rw Конец Конец Sub