Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
поиск суммирование и последующее удаление одинаковых значений
 
#1
19.08.2009 09:41:55
Здравствуйте!  
есть список товаров с количеством, нужно найти одинаковые, просуммировать количество и удалить двойников оставив только один товар. что-то типа СУММЕСЛИ и чтобы повторяющиеся ячейки удалились. Что собственно и реализовано в прикреплённом файле.  
Буду крайне признателен за помощь. Надо добавить ещё один столбец артикул товара. Сам не смог если просто добавить столбец то макрос неправильно считает сумму. А я сам в макросах не силён. Заранее спасибо =)
 
 
 
#2
19.08.2009 09:50:47
{quote}{login=}{date=19.08.2009 09:41}{thema=поиск суммирование и последующее удаление одинаковых значений}{post}...А я сам в макросах не силён. Заранее    
спасибо =){/post}{/quote}  
А если так (см. цитату), то не проще ли использовать "Сводную"?!
 
 
 
#3
19.08.2009 10:14:13
{quote}{login=The_Prist}{date=19.08.2009 09:54}{thema=}{post}Ну и где этот артикул?{/post}{/quote}  
Вот артикул-то и надо добавить, если просто вставить ещё один столбец то макрос не правильно считает сумму.
 
 
 
#4
19.08.2009 11:50:05
{quote}{login=The_Prist}{date=19.08.2009 11:05}{thema=Re: Re: }{post}{quote}{login=}{date=19.08.2009 10:14}{thema=Re: }{post}Вот артикул-то и надо добавить, если просто вставить ещё один столбец то макрос не правильно считает сумму.{/post}{/quote}  
Это понятно. Но можно было для примера этот артикул подписать туда, где он будет находиться в дальнейшем? Как править макрос, если не знать подо что? Куда Вы хотите просто вставить еще один столбец под артикул?{/post}{/quote}  
 
В прикреплённом файле, вставлен столбец с артикулом, на втором листе данные для примера.
 
 
 
#5
19.08.2009 22:00:58
Я же аналогичную задачу решал. Мало того - код находится в этом же файле! :-)
 
 
 
#6
24.08.2009 10:19:47
{quote}{login=Юрий М}{date=19.08.2009 10:00}{thema=}{post}Я же аналогичную задачу решал. Мало того - код находится в этом же файле! :-){/post}{/quote}  
 
Уважаемый Юрий М, да да, это именно Ваше решение.
 
 
 
#7
24.08.2009 11:15:30
{quote}{login=}{date=19.08.2009 09:41}{thema=поиск суммирование и последующее удаление одинаковых значений}{post}Здравствуйте!  
есть список товаров с количеством, нужно найти одинаковые, просуммировать количество и удалить двойников оставив только один товар. что-то типа СУММЕСЛИ и чтобы повторяющиеся ячейки удалились. Что собственно и реализовано в прикреплённом файле.  
Буду крайне признателен за помощь. Надо добавить ещё один столбец артикул товара. Сам не смог если просто добавить столбец то макрос неправильно считает сумму. А я сам в макросах не силён. Заранее спасибо =){/post}{/quote}  
 
Может Вам обойтись без макроса, функцией =ЕСЛИ(A1<>A2;(СУММЕСЛИ($A:$A;A1;$C:$C)))  
Затем сделаете сортировку и удалите ненужное. Это относится к листу с артикулом.
 
 
 
#8
24.08.2009 11:50:57
{quote}{login=The_Prist}{date=24.08.2009 11:24}{thema=}{post}Так?{/post}{/quote}  
 
Да именно так, тотально признателен за помощь !!!
 
 
 
#9
24.08.2009 12:36:05
Здравствуйте.  
Подскажите пожалуйста, как написана эта кнопка, в примере автора и как посмотреть формулу, содержащуюся в ней.    
Или дайте ссылку на подобную темку с разъяснениями и примером создания.  
Заранее благодарен.
 
 
 
#10
24.08.2009 12:42:49
Сама кнопка создана при помощи инструмента "Кнопка" из панели инструментов "Формы". Находится в меню Вид - Панели инструментов. В самой кнопке нет никаких формул. По нажатию этой кнопки запускается макрос, который находится в Модуле1.
 
 
 
#11
24.08.2009 12:44:59
Элементы управления, создаете кнопку, правой кнопкой щелкаете по ней, исходный текст и вставляете макрос.  
 
Sub Bandanas1()  
Dim Summa  
Dim iLastRow As Long  
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row  
  For i = 2 To iLastRow  
     Summa = Cells(i, 4)  
     For j = iLastRow To i + 1 Step -1  
        If Cells(j, 2) = Cells(i, 2) Then  
           Summa = Summa + Cells(j, 4)  
           Rows(j).Delete  
           iLastRow = iLastRow - 1  
        End If  
        Cells(i, 4) = Summa  
     Next  
  Next  
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row  
Cells(2, 1) = 1  
  For n = 3 To iLastRow  
     Cells(n, 1) = n - 1  
  Next  
End Sub
 
 
 
#12
24.08.2009 13:24:33
Спасибо. Все оказалось намного сложнее, чем я думала. Здесь уже язык программирования идет.
 
 
 
#13
24.11.2009 12:12:38
{quote}{login=Владимир}{date=24.08.2009 12:44}{thema=}{post}Элементы управления, создаете кнопку, правой кнопкой щелкаете по ней, исходный текст и вставляете макрос.  
 
Sub Bandanas1()  
Dim Summa  
Dim iLastRow As Long  
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row  
  For i = 2 To iLastRow  
     Summa = Cells(i, 4)  
     For j = iLastRow To i + 1 Step -1  
        If Cells(j, 2) = Cells(i, 2) Then  
           Summa = Summa + Cells(j, 4)  
           Rows(j).Delete  
           iLastRow = iLastRow - 1  
        End If  
        Cells(i, 4) = Summa  
     Next  
  Next  
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row  
Cells(2, 1) = 1  
  For n = 3 To iLastRow  
     Cells(n, 1) = n - 1  
  Next  
End Sub{/post}{/quote}  
 
Этот макрос - как раз, то что мне нужно, единственное, что и где надо изменить, чтобы суммирование шло не по 4-му столбцу, а по какому - либо другому? И, если возможно, хотелось бы подробно узнать, что значит и дает каждая строка - этого будет достаточно, чтобы дальше писать самостоятельно ( vba опыта нет, есть другой)
 
 
 
Страницы: 1
Читают тему
Наверх