скрытие ячеек при выполнении функции сцепить диапазон (VBA)

Пользователь

Сообщений: 9 Регистрация: 12.06.2019

24.06.2019 16:44:02

Добрый день!
При выполнении функции скрытия ячеек, выдается ошибка выполнения функции сцепитьдиапазон (в ячейке G4).
Подскажите, возможно ли как-то устранить данную ошибку?

Прикрепленные файлы

Книга.xlsm (18.51 КБ)

Изменено: yaroslav366 - 24.06.2019 16:51:18

Sanja Модератор Сообщений: 16516 Регистрация: 10.01.2013	#2 24.06.2019 17:06:16 А Вам что в итоге нужно? Чтобы значения из скрытых строк попадали в сцепку или нет? Согласие есть продукт при полном непротивлении сторон

yaroslav366 Пользователь Сообщений: 9 Регистрация: 12.06.2019	#3 24.06.2019 17:08:17 Sanja, Да, нужно чтобы сохранились эти значения в сцепке в ячейке G4

Sanja

Модератор

Сообщений: 16516 Регистрация: 10.01.2013

24.06.2019 17:12:59

Код

Public Function СЦЕПИТЬДИАПАЗОН(ДИАПАЗОН As Range, Optional РАЗДЕЛИТЕЛЬ$ = " ") As String
Dim arr(), I&, J&
arr = ДИАПАЗОН.Value
For I = LBound(arr) To UBound(arr)
    For J = LBound(arr, 2) To UBound(arr, 2)
    If arr(I, J) <> "" Then
        СЦЕПИТЬДИАПАЗОН = IIf(СЦЕПИТЬДИАПАЗОН = "", arr(I, J), СЦЕПИТЬДИАПАЗОН & РАЗДЕЛИТЕЛЬ & arr(I, J))
    End If
    Next
Next
End Function

Согласие есть продукт при полном непротивлении сторон

yaroslav366 Пользователь Сообщений: 9 Регистрация: 12.06.2019	#5 24.06.2019 19:04:44 Sanja, спасибо Вам, добрый человек !!!!!