из столбца сделать строку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » из столбца сделать строку (Формулы/Formulas)

АЛЕКСАНДР1986

Дата: Пятница, 22.04.2016, 22:17 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 169

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

всем добрый вечер!
не подскажите как из столбца сделать строки и чтобы в каждой строке находилось не больше 8 значений следовательно следующие значения переносятся на следующую строку и т.д.
изначальная таблица с данными представлена в желтой таблице то что должно получиться представлено в зеленой таблице!
заранее спасибо за помощь!

К сообщению приложен файл: 111111.xlsm (38.4 Kb)

Ответить

Nic70y

Дата: Пятница, 22.04.2016, 22:31 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2272 ±

Замечаний: 0% ±

Excel 2010

Код

=ИНДЕКС($B$4:$B$873;(СТРОКА(A1)-1)*8+СТОЛБЕЦ(A1))

К сообщению приложен файл: 9705708.xlsm (34.4 Kb)

ЮMoney 41001841029809

Ответить

МВТ

Дата: Суббота, 23.04.2016, 15:57 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

Николай, судя по расширению файла, ТС ждет что-то в таком роде
[vba]

Код

Sub tt()
    Dim arr(), i As Integer, j As Integer, maxrow
    arr = Range("B4:B" & Cells(Rows.Count, "B").End(xlUp).Row).Value
    maxrow = WorksheetFunction.RoundUp(UBound(arr) / 8, 0)
    Application.ScreenUpdating = False
    For i = 1 To maxrow
        For j = 1 To 8
            Cells(i + 3, j + 4) = arr((i - 1) * 8 + j, 1)
        Next
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]
UPD немного подправил код

Сообщение отредактировал МВТ - Суббота, 23.04.2016, 16:38

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » из столбца сделать строку (Формулы/Formulas)

Страница 1 из 1
1