Sub скрыть_столбцы() Dim ch, i, k, sh As Variant For Each sh In ThisWorkbook.Worksheets For i = 6 To 47 ch = 5: k = 5 Do While sh.Cells(ch, i) <> "" If sh.Cells(ch, i) = 0 Then k = k + 1 End If ch = ch + 1 Loop If k = ch Then sh.Cells(1, i).EntireColumn.Hidden = True Next i Next
|