F,
Так тут речь вряд ли идёт об изменении программы.
Обрисую свою ситуацию.
У нас на работе раньше делали своды по различным формам отчётности по 22 филиалам.
Формы либо сами клепали, либо брали при их наличии в Консультанте.
Но форма в консультанте имеет нехороший вид, там используется слишком избыточное количество ячеек (а точнее столбцов), что очень было не удобно и мне, как человеку, который должен был устанавливать на форме правильные защиты ячеек, а так-же делать сводный файл по 22 филиалам так и заполняющим.
Поэтому приходилось удалять эти избыточные ячейки.
Дело в том, что тут речь не идёт о том, что потом эти формы куда-то отправляются и там они машинно обрабатываются и они не должны быть неизменны (отличаться от оригинала).
Они лишь использовались для внутреннего сбора данных.
Макрос я кстати нашёл, но он вроде как не совсем доработанный и косячно работает, возможно я его лишь начинал делать, но потом забил на него, не доделав до конца. А так как филиал наш давно уже укрупнили и своды такие мы больше не делаем, то больше этим тоже уже не занимаюсь.
Тем не менее могу дать направление, например такой кусок кода, который только что написал:
1.
2.
3.
4.
5.
6.
7.
8.
Sub Удалить_бесполезный_столбец()
Dim j As Long
j = ActiveCell.Column
Columns(j - 1 ).ColumnWidth = Columns(j - 1 ).ColumnWidth + Columns(j).ColumnWidth
Columns(j).Delete Shift:=xlToLeft
Range("AB4").Select
End Sub
Смысл тут такой. Если открыть форму из Консультанта, то можно увидеть там такие столбцы, при удалении которых ничего не произойдёт, т.е. нигде не пропадёт текст, не пропадут рамки ячеек и вид формы останется более менее точно такой-же.
Так вот этот макрос позволяет удалять такие столбцы, а у столбца левее такого удаляемого столбца будет увеличена ширина на ширину удаляемого столбца. Поэтому визуально всё останется по прежнему, а количество лишних ячеек уменьшиться.
Визуально человеку легко находить такие столбцы, написать же корректный код, который может выявлять такие столбцы чуть по сложнее, но тоже можно.
Так что надо написать код, который просматривает все столбцы на заданном листе и каким-то образом определяет "бесполезные" (в той терминологии которую я имел ввиду) столбцы и к ним применяет макрос "Удалить_бесполезный_столбец".
В конечном итоге должно остаться минимальное количество столбцов, которое может содержать весь текст имеющийся на листе , а так-же рамки ячеек, так чтобы при этом всё выглядело как в оригинале.
