Сложное трнаспонирование

[EIJI]

Ребят, помогите пожалуйста.
Есть данные спектрофотометра, которые записываются в строки вместо нужных столбцов. Пробывал привести информацию в нужный вид с помощью Range, но это не целесообразно и "раздувает" код.
Может подскажите, какой цикл нужно использовать или ещё каким-нибудь советом по сути.

Пример файла

[staniiislav]

а пример можно увидеть?

[EIJI]

Уже, на файло-ке. Пример не могу загрузить сюда т.к. запрещено настройками б/п сети.

[staniiislav]

сейчас малеха занят по работе, позже посмотрю

[staniiislav]

честно сказать я не понял откуда берутся данные

CRUISE	REGION	DATE	Start time	End time	LAT	LONG

посмотрите пример, может хоть немного угадал

[nilem]

может, как-то так (см. файлик)

[EIJI]

Спасибо, что откликнулись!
staniiislav
Time End берётся в этом диапазоне A22-C22(для 1-ой станции)
и так для каждой станции.
nilem
А можно сделать так, что бы сохранялся формат ячейки числовой для параметра Lat/Lot
Lat - у меня отображается как дата, а для каждой глубины и параметров
скопировать точно такие же данные для их станций т.е.
чтобы ячейки STATION/DATE/Start time/End time/LAT/LONG не были пустыми и
автоматически удалялись бы пустые строки м/у станциями.
Причер3.xls
(Не могу понять, как программа будет понимать где граница станции, ведь интервал между станциями не статичен)

[nilem]

возможно, со стрелочкой будет лучше

[EIJI]

nilem

Я так понимаю, что для работы Вашего макроса дожен быть лист Result и шапки
CRUISE STATION REGION DATE Start time End time LAT LONG DEPTH TEMP SAL OXY OXY SATUR PO4 NO2 NO3 SIO4 CHL A и их величины. Я уже в нёс правки в код, чтобы лист и шапки макрос сделал сам. Но вот одна проблема есть, как удалить все величины - M C PSU ML/L PERCENT UG-AT/L UG-AT/L UG-AT/L UG-AT/L MG/M3. Они м/у станциями мешают, а нужно чтоб числовы данный станций шли сплошнком, а со стрелочкой прикольно и так удобней запускать

[nilem]

в Sub DEPTH(rng As Range) вот в этой строке

With rng.Offset(2).Resize(rng.Rows.Count - 2)

2 замените на 3

With rng.Offset(3).Resize(rng.Rows.Count - 3)