Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Преобразовать двухмерную таблицу (дни/часы) в одномерную (все часы года по порядку в столбце)
 
#1
13.04.2015 14:34:52
Здравствуйте,

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

Спасибо!
Изменено: Ivanov Petr - 13.04.2015 14:57:54
 
 
 
#2
13.04.2015 14:38:12
Блоки всегда по 24?
 
 
 
#3
13.04.2015 14:41:40
Да.
 
 
 
#4
13.04.2015 15:14:51
Просто в одном столбце протягиваете автозаполнением даты с часами, в соседнем извлекаете эти часы, заменяете всё на значения. Если в датах часы мешают - потом можно извлечь только даты или округлить.
5 минут работы руками.
 
 
 
#5
13.04.2015 15:16:32
Вы не поняли, мне нужно сами данные из таблицы разнести в один столбец.
 
 
 
#6
13.04.2015 15:21:26
Не вижу там lдругих данных - есть даты и часы без пропусков.
Ну а если и данные - то после того как нарисовали такую таблицу - можно в неё подтянуть данные формулами (или формулой, смотря что за данные).
Ну или всё делать макросом, который писать лень...
 
 
 
#7
13.04.2015 15:31:12
 Понятно, что формулой или макросом, потому я на этом форуме и прошу помочь тех, кто может.
Данные - обчные цифры, если заполнять все ячейки, то файл больше 100 кб, так что я заполнил только первые две строки в новом файле в приложении.

Кто может помочь и кому не лень - буду признателен.
 
 
 
#8
13.04.2015 15:38:27
Макрос
Код
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
 
 
 
#9
13.04.2015 16:01:47
Можно запустить "Редизайнер" из приемов:
http://www.planetaexcel.ru/techniques/3/55/
 
 
 
#10
13.04.2015 16:02:25
Вот с сортировкой дат.
 
 
 
#11
13.04.2015 16:02:59
Может так подойдёт?
 
 
 
#12
13.04.2015 16:40:33
Немного исправил.
 
 
 
#13
13.04.2015 17:15:24
Ivanov Petr, кнопка цитирования не для ответа
 
 
 
#14
13.04.2015 17:16:16
Исправил файл # 10
 
 
 
#15
13.04.2015 19:27:16
Спасибо! Попробую завтра, когда буду на рабочем компе, и отпишусь.
 
 
 
Страницы: 1
Наверх