Господа, есть макрос скрытия пустых колонок. Но в 1 строке заголовки. Что надо поправить, чтобы 1 строка игнорировалась, а поиск начинался со 2 строки?
Код
Sub HideColumn()
Dim LastColumn As Long, nColumn As Long
LastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count
If LastColumn = 1 Then Exit Sub
For nColumn = LastColumn To 1 Step -1
If Columns(nColumn).Text = "" Then Columns(nColumn).EntireColumn.Hidden = True
Next
End Sub
Sub HideColumn()
Dim LastColumn As Long, nColumn As Long
LastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count
If LastColumn = 1 Then Exit Sub
For nColumn = LastColumn To 2 Step -1
If Columns(nColumn).Text = "" Then Columns(nColumn).EntireColumn.Hidden = True
Next
End Sub
Вариант названия темы Выполнять цикл для строк, кроме первой. ... или вариант из #3.
VBA. Макрос скрытия пустых колонок (игнорировать заголовки в 1ой строке)
Код
' исправить эту часть
For nColumn = LastColumn To 1 Step -1
If Cells(Rows.Count,nColumn).End(xlUp).Row = 1 Then Columns(nColumn).EntireColumn.Hidden = True
Next nColumn
Цитата
МатросНаЗебре:For nColumn = LastColumn To 2 Step -1 … If Columns(nColumn).Text = ""
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Sub HideColumn()
Dim LastColumn As Long, nColumn As Long
LastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count
If LastColumn = 1 Then Exit Sub
For nColumn = LastColumn To 1 Step -1
If Cells(Rows.Count, nColumn).End(xlUp).Row = 1 Then Columns(nColumn).EntireColumn.Hidden = True
Next
End Sub