Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Суммирование по организации - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Суммирование по организации
Суммирование по организации
Uralan Дата: Вторник, 08.02.2011, 10:02 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

День добрый! Подскажите, пожалуйста, дана таблица, упорядочил ее по названию организации, встречаются такие строчки, где организация повторяется. Необходимо просуммировать по организации, оставить только уникальные организации в таблице, повтор убрать. Помогите реализовать средствами Excel. Спасибо!
 
Ответить
СообщениеДень добрый! Подскажите, пожалуйста, дана таблица, упорядочил ее по названию организации, встречаются такие строчки, где организация повторяется. Необходимо просуммировать по организации, оставить только уникальные организации в таблице, повтор убрать. Помогите реализовать средствами Excel. Спасибо!

Автор - Uralan
Дата добавления - 08.02.2011 в 10:02
Serge_007 Дата: Вторник, 08.02.2011, 10:21 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Quote (Uralan)
...дана таблица...

Здравствуйте.
Для решения Вашей задачу существует несколько способов.

Где сия таблица?



ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Uralan)
...дана таблица...

Здравствуйте.
Для решения Вашей задачу существует несколько способов.

Где сия таблица?


Автор - Serge_007
Дата добавления - 08.02.2011 в 10:21
Uralan Дата: Вторник, 08.02.2011, 11:07 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Serge_007, видно более 100 kb было...
К сообщению приложен файл: MOESK.rar (36.4 Kb)
 
Ответить
СообщениеSerge_007, видно более 100 kb было...

Автор - Uralan
Дата добавления - 08.02.2011 в 11:07
Serge_007 Дата: Вторник, 08.02.2011, 11:11 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Это легко сводной делается.

ЗЫ И совсем не обязательно было столько инфы выкладывать, для понимания хватило бы и пару десятков строк.

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


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЭто легко сводной делается.

ЗЫ И совсем не обязательно было столько инфы выкладывать, для понимания хватило бы и пару десятков строк.


Автор - Serge_007
Дата добавления - 08.02.2011 в 11:11
Uralan Дата: Вторник, 08.02.2011, 11:20 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Serge_007, понял, а, если теперь в первоначальный вид привести без повторяющихся полей, подскажите...
 
Ответить
СообщениеSerge_007, понял, а, если теперь в первоначальный вид привести без повторяющихся полей, подскажите...

Автор - Uralan
Дата добавления - 08.02.2011 в 11:20
Serge_007 Дата: Вторник, 08.02.2011, 11:23 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Quote (Uralan)
...понял, а, если теперь в первоначальный вид привести без повторяющихся полей?

Теперь я не понял.
А зачем?!

Хотя - хозяин-барин smile
Во вложении пара вариантов.

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


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Uralan)
...понял, а, если теперь в первоначальный вид привести без повторяющихся полей?

Теперь я не понял.
А зачем?!

Хотя - хозяин-барин smile
Во вложении пара вариантов.


Автор - Serge_007
Дата добавления - 08.02.2011 в 11:23
Uralan Дата: Вторник, 08.02.2011, 11:41 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Ну нужен такой вид, просто это, вообще, возможно Экселем сделать? После этого нужно такое проделать еще с 30 табличками и именно в таком же виде. Потом это все объединить в одну результирующую, вот там уже могут повторяться поля... Коряво, ну в общем понятно. Все увидел, спасибо большое!


Сообщение отредактировал Uralan - Вторник, 08.02.2011, 11:42
 
Ответить
СообщениеНу нужен такой вид, просто это, вообще, возможно Экселем сделать? После этого нужно такое проделать еще с 30 табличками и именно в таком же виде. Потом это все объединить в одну результирующую, вот там уже могут повторяться поля... Коряво, ну в общем понятно. Все увидел, спасибо большое!

Автор - Uralan
Дата добавления - 08.02.2011 в 11:41
Serge_007 Дата: Вторник, 08.02.2011, 11:52 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Quote (Uralan)
После этого нужно такое проделать еще с 30 табличками и именно в таком же виде. Потом это все объединить в одну результирующую

В таком случае есть смысл СНАЧАЛА слить все таблицы в Access и оттуда сводной вытащить итог.
Это и проще и удобнее и быстрее (хотя если Excel старше 2003, а суммарно строк менее полутора миллионов, то можно всё это сделать сразу и в Excel).



ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Uralan)
После этого нужно такое проделать еще с 30 табличками и именно в таком же виде. Потом это все объединить в одну результирующую

В таком случае есть смысл СНАЧАЛА слить все таблицы в Access и оттуда сводной вытащить итог.
Это и проще и удобнее и быстрее (хотя если Excel старше 2003, а суммарно строк менее полутора миллионов, то можно всё это сделать сразу и в Excel).


Автор - Serge_007
Дата добавления - 08.02.2011 в 11:52
Hugo Дата: Вторник, 08.02.2011, 15:31 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Можно макросом. Тут в общем видно, что куда откуда:

Code
Sub Otbor()
       Dim a(), oDict As Object, i As Long, temp As String
          
       a = Range("d2:e" & Range("e" & Rows.Count).End(xlUp).Row).Value

       Set oDict = CreateObject("Scripting.Dictionary")

       For i = 1 To UBound(a)
           temp = UCase(Trim(a(i, 2)))
           If Not oDict.Exists(temp) Then
               oDict.Add temp, CStr(a(i, 1))
           Else
               oDict.Item(temp) = CStr(--oDict.Item(temp) + a(i, 1))
           End If
       Next

       With ThisWorkbook.Worksheets(1)
           .Range("i2").Resize(oDict.Count) = Application.Transpose(oDict.keys)
           .Range("j2").Resize(oDict.Count) = Application.Transpose(oDict.items)
       End With

End Sub

D2:Eдоконца анализируем, из второго столбца извлекаем уникальные, первый суммируем, в I2, J2 выгружаем результат.


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеМожно макросом. Тут в общем видно, что куда откуда:

Code
Sub Otbor()
       Dim a(), oDict As Object, i As Long, temp As String
          
       a = Range("d2:e" & Range("e" & Rows.Count).End(xlUp).Row).Value

       Set oDict = CreateObject("Scripting.Dictionary")

       For i = 1 To UBound(a)
           temp = UCase(Trim(a(i, 2)))
           If Not oDict.Exists(temp) Then
               oDict.Add temp, CStr(a(i, 1))
           Else
               oDict.Item(temp) = CStr(--oDict.Item(temp) + a(i, 1))
           End If
       Next

       With ThisWorkbook.Worksheets(1)
           .Range("i2").Resize(oDict.Count) = Application.Transpose(oDict.keys)
           .Range("j2").Resize(oDict.Count) = Application.Transpose(oDict.items)
       End With

End Sub

D2:Eдоконца анализируем, из второго столбца извлекаем уникальные, первый суммируем, в I2, J2 выгружаем результат.

Автор - Hugo
Дата добавления - 08.02.2011 в 15:31
Uralan Дата: Среда, 09.02.2011, 16:58 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Hugo, Спасибо, помогли!
 
Ответить
СообщениеHugo, Спасибо, помогли!

Автор - Uralan
Дата добавления - 09.02.2011 в 16:58
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Суммирование по организации
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!