Всем здравия! Уж не знаю как получилось с правильностью названия темы... Есть задачка: в колонке Комментарии (AK) нужно сцепить количество заказов отдельно по каждому весу (значения из нечетных столбцов E, G и т.д.). В файле пример, надеюсь понятный. Сам сделал с допстолбцами, а может ктонить одной формулой?
Всем здравия! Уж не знаю как получилось с правильностью названия темы... Есть задачка: в колонке Комментарии (AK) нужно сцепить количество заказов отдельно по каждому весу (значения из нечетных столбцов E, G и т.д.). В файле пример, надеюсь понятный. Сам сделал с допстолбцами, а может ктонить одной формулой?pabchek
Function f$(r) Dim a(), i&, e: Static d As Object a = r.Value If d Is Nothing Then Set d = CreateObject("scripting.dictionary") Else d.RemoveAll For i = 1 To UBound(a, 2) Step 2 If Not IsEmpty(a(1, i)) Then d(a(1, i)) = d(a(1, i)) + 1 Next For Each e In d: d(e) = d(e) & " по " & e & "кг": Next f = Join(d.items, "; ") End Function
[/vba]
с помощью UDF можно. устроит?[vba]
Код
Function f$(r) Dim a(), i&, e: Static d As Object a = r.Value If d Is Nothing Then Set d = CreateObject("scripting.dictionary") Else d.RemoveAll For i = 1 To UBound(a, 2) Step 2 If Not IsEmpty(a(1, i)) Then d(a(1, i)) = d(a(1, i)) + 1 Next For Each e In d: d(e) = d(e) & " по " & e & "кг": Next f = Join(d.items, "; ") End Function
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
