Записать в одну ячейку данные?

[Serge 007]

Сообщение от Stem79

Стандартных формул для этих преобразований нет?

Нет.......

[Stem79]

Сообщение от Hugo121

Был бы Ваш пример в файле - думаю уже вчера был бы конкретный ответ.

Пример добавил в начало темы, огромная просьба помочь разобраться.

[Hugo121]

Я думаю так - т.к. в таком виде вывести результат практически можно только макросом/UDF, то и всю работу нужнно сразу делать макросом.
Но вот что именно нужно сделать - не понял, а вычитывать формулу ("которая подсчитывает частоту суммы значений") откровенно лень и неинтересно.
Поясните словами, что именно хотите определить.

[Stem79]

Сообщение от Hugo121

Я думаю так - т.к. в таком виде вывести результат практически можно только макросом/UDF, то и всю работу нужнно сразу делать макросом.
Но вот что именно нужно сделать - не понял, а вычитывать формулу ("которая подсчитывает частоту суммы значений") откровенно лень и неинтересно.
Поясните словами, что именно хотите определить.

Ну мне то и нужно в одной ячейке получить результат данной формулы. Формулу неудобно протягивать по ячейкам столбца D, чтобы собрать частоты и найти окончание (слово END). Мне нужно этот процесс автоматизировать, результат вычислений из данного примера я написал в ячейку F1 ручками, а это должна делать формула, либо макрос.

[nilem]

WorksheetFunction-шный вариант

Sub ert()
Dim i&
Range("G1").Value = vbNullString
With Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row)
    .Columns(3).FormulaR1C1 = "=RC[-2]+RC[-1]"
    For i = 0 To WorksheetFunction.Max(.Columns(3))
        Range("G1") = Range("G1") & i & "-" & WorksheetFunction.CountIf(.Columns(3), i) & ";"
    Next i
    .Columns(3).ClearContents
End With
End Sub

ПС попробуйте 10 раз быстро произнести "WorksheetFunction-шный"

[Hugo121]

То, что это нужно получить в одной ячейке формулой/UDF, я понял.
Я не понимаю, как получаются эти 0-2...
Ну да ладно, вероятно Николай уже всё решил

[Stem79]

Сообщение от Hugo121

То, что это нужно получить в одной ячейке формулой/UDF, я понял.
Я не понимаю, как получаются эти 0-2...
Ну да ладно, вероятно Николай уже всё решил

Вариант хороший, но создание третьего столбца, а потом его очистка не в тему, в третьем столбце тоже данные нужные могут быть.

[nilem]

Сообщение от Stem79

... создание третьего столбца, а потом его очистка не в тему...

можно программно вставлять доп. столбец, а потом его удалять
если серьезно, то, конечно, нужно "на массивах и словарях"
только нужно ли? вроде и так нормально

[Stem79]

Сообщение от nilem

можно программно вставлять доп. столбец, а потом его удалять
если серьезно, то, конечно, нужно "на массивах и словарях"
только нужно ли? вроде и так нормально

Очень нужно на массивах, и наверное лучше будет - если это будет функция, а не процедура, в которую можно передавать анализируемый диапазон, а результат функции будет записываться в ячейку в которой будет вызвана эта функция.

Спасибо.

[nilem]

щас нарисуем

собственно, вот:

Function ertert(r1 As Range, r2 As Range) As String
Dim a, b, x, i&, m&, s$
a = r1.Value: b = r2.Value: ReDim x(1 To UBound(a))
If UBound(a) <> UBound(b) Then Exit Function
For i = 1 To UBound(a)
    x(i) = a(i, 1) + b(i, 1): If x(i) > m Then m = x(i)
Next i
x = Split("~" & Join(x, "~|~") & "~", "|")
For i = 0 To m
    s = s & i & "-" & UBound(Filter(x, "~" & i & "~", 1)) + 1 & ";"
Next i: ertert = s
End Function

в файле G1 заполняется стрелкой, а в G4 формула с УДФ