Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Преобразовать двухмерную таблицу (дни/часы) в одномерную (все часы года по порядку в столбце)
 
Здравствуйте,

подскажите, пожалуйста, как преобразовать двухмерную таблицу с данными (в строках дни года, в столбцах часы дня) в одномерную (все часы года по порядку в столбце). Пример в приложении.

Спасибо!
Изменено: Ivanov Petr - 13 Апр 2015 14:57:54
 
Блоки всегда по 24?
 
Да.
 
Просто в одном столбце протягиваете автозаполнением даты с часами, в соседнем извлекаете эти часы, заменяете всё на значения. Если в датах часы мешают - потом можно извлечь только даты или округлить.
5 минут работы руками.
 
Вы не поняли, мне нужно сами данные из таблицы разнести в один столбец.
 
Не вижу там lдругих данных - есть даты и часы без пропусков.
Ну а если и данные - то после того как нарисовали такую таблицу - можно в неё подтянуть данные формулами (или формулой, смотря что за данные).
Ну или всё делать макросом, который писать лень...
 
 Понятно, что формулой или макросом, потому я на этом форуме и прошу помочь тех, кто может.
Данные - обчные цифры, если заполнять все ячейки, то файл больше 100 кб, так что я заполнил только первые две строки в новом файле в приложении.

Кто может помочь и кому не лень - буду признателен.
 
Макрос
Код
Sub Dates()
Dim L, LastRow, LastColumn As Long
Application.ScreenUpdating = False
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
For I = 2 To LastRow
For J = 2 To LastColumn
L = L + 1
    Sheets("искомый вид").Cells(L, 1) = Cells(I, 1)
    Sheets("искомый вид").Cells(L, 2) = Cells(1, J)
    Sheets("искомый вид").Cells(L, 3) = Cells(I, J)
Next J
Next I
Application.ScreenUpdating = True
End Sub



 
Можно запустить "Редизайнер" из приемов:
http://www.planetaexcel.ru/techniques/3/55/
 
Вот с сортировкой дат.
 
Может так подойдёт?
 
Немного исправил.
 
Ivanov Petr, кнопка цитирования не для ответа
 
Исправил файл # 10
 
Спасибо! Попробую завтра, когда буду на рабочем компе, и отпишусь.
Страницы: 1
Читают тему (гостей: 1)