Сбор данных - Мир MS Excel

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

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

Сбор данных (Формулы)

Сбор данных

Maksim156

Дата: Вторник, 11.02.2014, 14:31 | Сообщение № 1

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2003

Добрый день. Нужно прописать формулу, что бы результат был как в ячейке В22. Сейчас собирает В20, но при большом количестве данных все не входит

К сообщению приложен файл: 94694974767.xls (19.0 Kb)

Сообщение отредактировал Maksim156 - Вторник, 11.02.2014, 14:44

Ответить

Serge_007

Дата: Вторник, 11.02.2014, 23:36 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Формулами это будет весьма проблематично сделать

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Maksim156

Дата: Среда, 12.02.2014, 14:05 | Сообщение № 3

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2003

А если в другой форме, просто очень не удобно создавать 2-3 дополнительных ячеек что бы все вошло

Ответить

Hugo

Дата: Среда, 12.02.2014, 15:19 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3741

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

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

365

[vba]

Код

Function pervomaj(r As Range)
     Dim a(), i&, arr, t$, k, s$
     a = r.Value
     With CreateObject("Scripting.Dictionary"): .comparemode = 1

         For i = 1 To UBound(a)
             If a(i, 2) > 0 Then
                 arr = Split(a(i, 1), ",")
                 t = Trim(arr(0))
                 .Item(t) = .Item(t) & ", " & Trim(arr(1)) & " (" & a(i, 2) & ")"
             End If
         Next
         For Each k In .keys
             s = s & ", " & k & ", " & Mid(.Item(k), 3)
         Next
     End With
     pervomaj = Mid(s, 3)
End Function

[/vba]
Если не нравится первомай - название можете поменять