Как преобразовать несколько столбцов в 2 столбца в Excel в следующем формате?

 Название F1 F2 F3
 John abd
 Mindy dac
 Джо cbe
 Alan ac
 В приведенном ниже формате

 Поля названия
 Джон
 Джон b
 John d
 Mindy d
 Минди
 Минди c
 Джо c
 Джо b
 Джо
 Алан а
 Алан c

В E1 введите:

 =INDEX(A$2:A$9999,ROUNDUP(ROW()/3,0)) 

и копировать. В F1 введите:

 =OFFSET($B$2,ROUNDUP(ROWS($1:1)/3,0)-1,MOD(ROWS($1:1)-1,3)) 

и скопируйте:

введите описание изображения здесь

Вот один из них, который пытается разрешить переменное количество столбцов.

В (скажем) L2: –

 =A2 

В L3

 =IF(COUNTIF(L$1:L2,L2)>=COUNTA(INDEX($B$2:$J$10,MATCH(L2,$A$2:$A$10,0),)),INDEX($A$2:$A$10,MATCH(L2,$A$2:$A$10,0)+1),L2) 

В M2: –

 =INDEX($B$2:$J$10,MATCH(L2,$A$2:$A$10,0),COUNTIF($L$1:$L2,L2)) 

введите описание изображения здесь

Вы можете использовать эти две формулы, чтобы получить то, что вам нужно. Поместите эту формулу в ячейку B8 , чтобы получить вторую колонку:

 =INDEX($B$2:$D$5,1+INT((ROW(A1)-1)/COLUMNS($B$2:$D$5)),MOD(ROW(A1)-1+COLUMNS($B$2:$D$5),COLUMNS($B$2:$D$5))+1) 

Также эта формула состоит в том, чтобы получить первый столбец, поместить его в ячейку A8 и заполнить обе формулы:

 =INDEX($A$2:$A$5,CEILING(COUNTA($B$8:B8)/COLUMNS($B$2:$D$5),1)) 

Вы можете получить файл моего примера.

Вот вам решение VBA.

 Sub Rearrange() Set s1 = Sheets("Sheet1") Set s2 = Sheets("Sheet2") s1.Activate n = Cells(Rows.count, 1).End(xlUp).Row k = 1 For i = 1 To n namee = Cells(i, 1).Value For j = 2 To 4 numberr = Cells(i, j).Value s2.Cells(k, 1) = namee s2.Cells(k, 2) = numberr k = k + 1 Next Next End Sub 
Interesting Posts

Формула поиска в Excel

отлично не суммировать время

Регулировка формы в Excel 2010

Как я могу прочитать диапазон («A5: B10») и поместить эти значения в фреймворк с использованием openpyxl

Найдите значение в листе, подсчитайте его и вставьте результат на другой лист

Могу ли я создать раскрывающийся список с данными из нескольких листов

Неизвестная ошибка выполнения VBScript Excel

Сводная диаграмма не будет обновляться при открытии книги (несколько защищенных рабочих листов)

Выполните формулу Только, если мы подключаемся к ячейке – Нет значения «0» – Excel 2010

Специальная сортировка Excel VBA

VLookup VLookup

Excel VBA – включение подсветки строк при каждом нажатии макроса

Преобразование файла foxbase .DAT в (с разделителями-запятыми) .CSV с использованием Excel

Как подсчитать количество раз, когда строка содержит 2 определенных слова в excel

Событие Excel VSTO NewWorkbook не возникает при запуске

Давайте будем гением компьютера.