Нужно эту формулу продлить, столбцы от A до QG. Смысл вывести только те названия свойств (выделил жирным) у которых есть значение, значения идут под названиями свойств.
Пример вложил, только там 30 столбцов а в оригинале 500. Как можно продлить формулу со следующему буквами столбцов от A до QG?
Function СЦЕПИТЬ2(область As Range, шапка As Range) As String
Dim a1 As Variant
a1 = область
Dim a2 As Variant
a2 = шапка
Dim a3 As Variant
ReDim a3(1 To UBound(a1, 2))
Dim i As Long
Dim j As Long
For i = 1 To UBound(a1, 2)
If a1(1, i) <> "" Then
j = j + 1
a3(j) = a2(1, i)
End If
Next
If j > 0 Then
ReDim Preserve a3(1 To j)
СЦЕПИТЬ2 = Join(a3, ";")
End If
End Function
не тот скрин приложили. На приложенном не видно что за ошибка появляется. Если ИМЯ - то не поместили код функции в стандартный модуль того файла, в котором функцию используете.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...