Автоматическое скрытие пустых столбцов в таблице, возможно ли?

[Олег*]

У меня поля таблицы заполняются макросом, обрабатывающим поступающие данные. Сколько будет данных заранее неизвестно, поэтому я резервирую дополнительные (лишние) столбцы. На расчеты это не влияет, а вот сейчас захотел визуализировать полученные данные с помощью спарклайнов и столкнулся с тем, что из-за наличия пустых столбцов они (спарклайны) получаются не оптимальными с точки зрения эстетики и информативности.

В связи с этим возник вопрос: можно ли установить какое-нибудь свойство таблицы, чтобы полностью пустые столбцы автоматически скрывались?

Если такого средства нет, то можно ли как-нибудь сделать это с помощью макроса?

А если это тоже невозможно, то как можно так настроить спарклайны, чтобы они полностью игнорировали все пустые ячейки? На самом деле, этот вопрос надо было бы поставить первым, поскольку при наличие такой возможности все остальные заданные в этой теме вопросы сами собой отпадают.

Прилагаю рабочую книгу с "некрасивыми", неинформативными спарклайнами.

[Prist]

Не подойдет такой вариант:
выделяем Спарклайны-вкладка Работа со спарклайнами-Изменить данные-Скрытые и пустые ячейки-Показывать как...Линию

Если не подойдет - думаю, только скрытие столбцов(макросом или вручную).
А вот примерный текст кода для скрытия столбцов:

Код Выделить Развернуть

Sub Hide_Cols()
Dim rCell As Range, lLastRow As Long, lLastCol As Long, lCol As Long
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = 0
For lCol = 2 To lLastCol - 1
    Columns(lCol).Hidden = (Range(Cells(2, lCol), Cells(lLastRow, lCol)).Text = "")
Next lCol
Application.ScreenUpdating = 1
End Sub

[_Boroda_]

Или может еще вот так понравится?

[Олег*]

Или может еще вот так понравится?

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

Не подойдет такой вариант:
выделяем Спарклайны-вкладка Работа со спарклайнами-Изменить данные-Скрытые и пустые ячейки-Показывать как...Линию

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

Если не подойдет - думаю, только скрытие столбцов(макросом или вручную).
А вот примерный текст кода для скрытия столбцов:

Код Выделить Развернуть

Sub Hide_Cols()
Dim rCell As Range, lLastRow As Long, lLastCol As Long, lCol As Long
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = 0
For lCol = 2 To lLastCol - 1
   Columns(lCol).Hidden = (Range(Cells(2, lCol), Cells(lLastRow, lCol)).Text = "")
Next lCol
Application.ScreenUpdating = 1
End Sub

А вот это подошло идеально! Спасибо большое!

Но только проблема возникла. Сегодня целый день над ней тружусь, но пока не получается справиться. Дело в том, что когда я ваш код добавил в ту книгу, которую выложил на форуме, все заработала на ура. А вот когда стал пытаться "вмонтировать" этот же самый код в свой "большой проект" , то  столкнулся с тем, что сначала он у меня скрывал столбцы совсем не на том листе, на котором хотелось бы , а теперь (после нескольких часов упорного поиска причины затруднений) стал скрывать столбцы на том листе, на котором надо, но совсем не те, которые надо   Одним словом продолжаю ставить брекпойнты и занимаюсь отловом багов

[Prist]

Олег, полагаю, что имеет смысл принудительно указать имя листа, на котором скрывать столбцы. Т.к., скорее всего, у Вас есть еще макросы в книге, которые выполняют свои задачи и конфликтуют с данным кодом.

Код Выделить Развернуть

Sub Hide_Cols()
    Dim rCell As Range, lLastRow As Long, lLastCol As Long, lCol As Long
    With Sheets("Имя листа")
        lLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        lLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Application.ScreenUpdating = 0
        For lCol = 2 To lLastCol - 1
            .Columns(lCol).Hidden = (.Range(.Cells(2, lCol), .Cells(lLastRow, lCol)).Text = "")
        Next lCol
    End With
    Application.ScreenUpdating = 1
End Sub

[Олег*]

Олег, полагаю, что имеет смысл принудительно указать имя листа, на котором скрывать столбцы. Т.к., скорее всего, у Вас есть еще макросы в книге, которые выполняют свои задачи и конфликтуют с данным кодом.

Код Выделить Развернуть

Sub Hide_Cols()
    Dim rCell As Range, lLastRow As Long, lLastCol As Long, lCol As Long
    With Sheets("Имя листа")
        lLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        lLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Application.ScreenUpdating = 0
        For lCol = 2 To lLastCol - 1
            .Columns(lCol).Hidden = (.Range(.Cells(2, lCol), .Cells(lLastRow, lCol)).Text = "")
        Next lCol
    End With
    Application.ScreenUpdating = 1
End Sub

Идеально!