Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Данные из одного столбца разнести на 10 столбцов
 
#1
17.03.2020 23:00:45
Здравствуйте!

Подскажите, пожалуйста, как решить данную проблему.
Есть столбец А, в нем данные. Нужно из ячеек А раскидать в табличку 10 х N. Вручную конечно можно, как в примере, но для 300 строк это совсем не вариант.  
Изменено: sergey08 - 18.03.2020 23:18:02
 
 
 
#2
18.03.2020 00:35:26
=ИНДЕКС($A:$A;(СТРОКА(A1)-1)*10+СТОЛБЕЦ(A1)+1)
 
 
 
#3
18.03.2020 22:51:54
Проблема не решена. Проблема не в самой формуле, а в способе заполнения этих ячеек.

Попробую уточнить вопрос.

Данные из ячеек столбца А необходимо разместить рядом в табличке с десятью столбцами и количеством строк, которое будет зависеть от данных в А.
Сейчас в табличке справа просто вручную набиты формулы (ссылки) на ячейки из А. Однако записей может быть много, и вручную не вариант...
Можно ли этого избежать и с помощью VBA заполнить табличку справа формулами (ссылками на ячейки) для размещения ячеек как на картинке?

p.s. Замысел этих манипуляций - последующее копирование таблички в Ворд. Табличка должна быть именно такого вида. Вариант с манипуляциями в Ворде со столбцом и преобразованием не подойдет.  
Изменено: sergey08 - 18.03.2020 22:54:08
 
 
 
#4
18.03.2020 23:04:44
Цитата
с помощью VBA заполнить табличку
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim n As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("C2:L" & iLastRow).ClearContents
    n = 2
  For i = 2 To iLastRow Step 10
    Range(Cells(i, "A"), Cells(i + 9, "A")).Copy
    Cells(n, "C").PasteSpecial xlPasteValues, Transpose:=True
    n = n + 1
  Next
End Sub
 
 
 
#5
18.03.2020 23:14:23
Kuzmich, спасибо, то что нужно!!!
Все работает!
 
 
 
Страницы: 1
Читают тему
Наверх