Макрос на скрытие столбцов с нулевым значение

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Макрос на скрытие столбцов с нулевым значение - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос на скрытие столбцов с нулевым значение (Макросы/Sub)

Макрос на скрытие столбцов с нулевым значение

Лукашенко

Дата: Пятница, 22.04.2022, 16:04 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

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

К сообщению приложен файл: _-version_1-.xlsb (44.4 Kb)

Ответить

msi2102

Дата: Пятница, 22.04.2022, 18:04 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 415

Репутация: 129 ±

Замечаний: 0% ±

Excel 2007

Так:
[vba]

Код

Sub Макрос3()
Dim i As Long, rng As Range
arr1 = Range("C5:AA345")
i = 1
For m = LBound(arr1, 2) To UBound(arr1, 2)
    For n = LBound(arr1) To UBound(arr1)
        If arr1(n, m) <> 0 And arr1(n, m) <> "" Then i = 0: Exit For
    Next n
    If i = 1 Then
        If rng Is Nothing Then Set rng = Columns(m + 2) Else Set rng = Union(rng, Columns(m + 2))
    End If
    i = 1
Next m
Range("C5:AA345").EntireColumn.Hidden = False
If Not rng Is Nothing Then rng.EntireColumn.Hidden = True
End Sub

[/vba]

К сообщению приложен файл: -version_1-.xlsb (47.2 Kb)

Сообщение отредактировал msi2102 - Пятница, 22.04.2022, 18:05

Ответить

Макрос на скрытие столбцов с нулевым значение (Макросы/Sub)

Страница 1 из 1
1