@AAAAAAAmidi

Добрый день.
Есть табличка вида (приложение)

подскажите, как покрасивейй сделать макрос по приведению ее (левой многострочной части) в однострочный вид (правая часть для примера) для отдельной красивой таблицы. Количество строк для одной записи справа(выделил цветами) может быть различным(от 2 до 6). я нацелился метки каждой новой записи считать по "dt" в первом столбце.
Спасибо за предложения.

0

@pashulka

Возможный вариант см. в аттаче. Обратите внимание на то, что если "dt" будет единственной строкой, то полученный результат будет некорректным. Правда с этим можно бороться, если просто проверять значение найденных ячеек, но если строк действительно от 2-х и более, то можно обойтись и проверки.

Вложения

Sample_for_Amidi.zip (17.2 Кб, 16 просмотров)

1

@AAAAAAAmidi

примеры классные.
я, грубо говоря, для одной базы решение сделал, но громоздкое, по сравнениию с Вашим. проработаю.

на очереди еще одна база, еще страшней-там нет конкретного dt . как объяснить машине, по чем считать-пока вопрос. ну это уже мои проблемы.
спасибо)

Добавлено через 11 часов 36 минут
офигенный у Вас код. я еще не все понял, но это гниально.

Добавлено через 13 часов 35 минут
Уважаемый pashulka.
Наберусь наглости и спрошу,как бы Вы объяснили машине логику объединения строк в прилагаемом примере (скопировал часть таблицы, несколько условных листов). разброд строк на стыке "условных" листов идет жуткий. бъюсь третий день, пока не очень успешно как-то.
место начала "условного" листа указано в столбце AQ, видимо к нему надо привязываться, когда определяется "съехавшая" строка. Ключевое непрерывное поле тут дата в столбце С, но там никак логику не прописать, мне кажется.
Выделил очень характерные "сдвиги" на стыке листа 6 и на стыке листа 7.
Спасибо за советы.

Добавлено через 59 минут
...или делать привязку на 10 год? конкатенация ячеек по дате, пока последними символами не будут "10". по счетчику получили количество строк?
хотя хотелось бы какое-то универсальное решение конечно.

0

@pashulka

В большинстве случаев - конец строки определяется наличием текста(штата) в столбце G , но, увы, есть и исключения.

p.s. Если отчёт идёт по году, то Ваш вариант, ближе всех к идеалу, тем более, что дату искать можно с помощью Like и указать не конкретный год, а ##

0

@pashulka

Ваш вариант с датой см. в аттаче. Обратите внимание на то, что в исходной таблице какая-то ass переместилась из ячейки AN120 в AM120, и в результате, мы получаем неправильные проценты ... можно даже сказать, не совсем проценты

Вложения

Sample_for_Amidi2.zip (67.4 Кб, 11 просмотров)

1

@AAAAAAAmidi

до того,как эти данные попали в ексель, они были конвертированы из ПДФ. после чего работал макрос, отыскивающий форматы ячеек с нулями, и переводящий их в текстовый формат с дорисовкой нулей в начале. потом отработал макрос, который искал "сдвоенные" строки и рахзделял их на две. Потому не удивлен, что где-то что-то "съехало". Но за замечание спасибо.

нарисовал громоздкий макрос, который по дате выискивает диапазон одной записи. как раз отработал (15 минут обрабатывал всю базу). но с вашего кода просто по-хорошему фигею.
спасибо

Добавлено через 55 минут
Ваш макрос работает секунд 5 над моей базой. мой - больше 20 минут... я в культурном шоке.

0

@AAAAAAAmidi

Уважаемый, pashulka

Возможно, вопрос и не совсем по этой теме, но интересно, как бы Вы решали проблему.
Конвертер пдф-ексель иногда, как оказалось, съедает часть данных (в основном по пол записи на стыке страниц), более адекватных конвертеров не нашлось (съедаются нули в начале чисел при импорте и прочее и прочее).

Подумалось - а если сделать сохранение пдф-текст и попробовать импортировать (пример в приложении). одна беда - от листа к листу расположение столбцов относительно друг друга меняется, соответственно одним махом импортировать 70 или 250страниц не получится. варианты решения:

1)сохранять пдф постранично, руками импортировать каждую страницу (повеситься сразу)
2)написать программу, которая отконвертирует сразу весь текст. идеально. но!! описать такую логику, мне кажется, очень проблематично.
3)Ваш вариант.

Благодарю за мысли.

Добавлено через 49 минут
Вот подумал - сначала выискиваем по тексту начало и конец страницы (это у нас "-------", соответственно, начинаем работать с диапазоном строк от n1 до n2)после чего, идем по первой строке, если в текущей позиции находимся на символе пробел, то проверяем, под ним на 10 строк (к примеру) тоже пробелы? если да, то считаем, что с символа p1 по p2 в каждой строке содержимое столбца.

Добавлено через 16 минут
Либо страницу загнать построково в массив, 1 элемент - 1 буква. и подобным образом выискиваем "сдвоенный" пробел, после чего делаем проверку на сдвоенность пробела в этом=же месте у последующих элементов массива (строк). если да, то диапазон букв "с - по" копируем в новый массив, как запись.

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

0

@AAAAAAAmidi

Вы не подумайте. Я не "сделайтезаменя".
я дописал эту байду по перекодированию массива. Правда в четыре подпрограммы. вместо массивов (чтоб наглядней было), использовал отдельный лист ексель. В целом, баги исправляю, но для компании сэкономил 160 баксов. Надеюсь, в свой карман.
всем гуд лак.

0