Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
[ Закрыто ] Объединение одинаковых значений, и получение суммы
 
#1
04.03.2014 11:01:22
Здравствуйте у меня Excel 2010. Помогите пожалуйста, когда при пересчёте товара с помощью пистолета сканера одинаковые коды вводящиеся в ячейки при повторении вбиваются друг за другом, возможно ли сделать так, чтоб одинаковые коды не повторялись, а их количество складывклось и отображалось бы в строке колиество? В примере: слева оригинал, справа как нужно
 
 
 
#2
04.03.2014 11:06:06
Для уже введенных данных (в ячейку F2):
Код
=СЧЁТЕСЛИ(A2:A20;E2)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
04.03.2014 11:14:36
Сводная таблица
Век живи, век учись - два века проживешь!
 
 
 
#4
04.03.2014 12:14:10
Спасибо, но это уже для введённых данных, а мне нужно чтоб по ходу при вводе это делалось автоматически
 
 
 
#5
04.03.2014 12:21:32
как данные попадают в Excel?
 
 
 
#6
04.03.2014 12:30:27
Я сканирую код товара пистолетом, он вбивает его код в ячейку, если одного товара несколько, то его код повторяется в каждой нижней ячейке, мне нужно чтоб он не повторялся, а выводилась его сумма в строке рядом
 
 
 
#7
04.03.2014 12:41:01
Не уверен, что в таком случае генерируется событие.
Но попробуйте приложенный файл.
 
 
 
#8
04.03.2014 12:41:28
Ответы перечисленные выше уже для введённых товаров, мне же нужно чтоб это всё было по ходу вводу товара
 
 
 
#9
04.03.2014 13:05:01
Вот, это то что нужно, но чем больше одинаковых кодов, столько же и пустых строк между кодами. Буду очень признателен если и с этим поможете
 
 
 
#10
04.03.2014 14:00:16
видимо так
 
 
 
#11
04.03.2014 14:09:48
Огромнейшее вам спасибо! Идеально! Если не секрет поделитесь как вы это сделали  ;)
 
 
 
#12
04.03.2014 15:27:57
Цитата
furious206 пишет:
Огромнейшее вам спасибо! Идеально! Если не секрет поделитесь как вы это сделали
Не секрет. Всего-то делов. Вставляете код. И все работает.
А вот как код написать, это в двух словах не объяснить :)
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iY As Long
Application.EnableEvents = False

If Target.Column = 1 And Target.Columns.Count = 1 And Target.Rows.Count = 1 Then
    If Cells(Target.Row, 2).Value = "" Then Cells(Target.Row, 2).Value = 1
    For iY = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
             
            If (WorksheetFunction.CountIf(Range(Cells(iY, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)), Cells(iY, 1).Value) > 1) Or Cells(iY, 1).Text = "" Then
                Rows(iY).Delete Shift:=xlUp
            Else
                Cells(iY, 2).Value = WorksheetFunction.SumIf(Columns(1), Cells(iY, 1).Value, Columns(2))
            End If
        
    Next
End If
Application.EnableEvents = True
End Sub
 
 
 
#13
13.03.2014 17:52:36
Вновь проблема, теперь когда я начинаю вводить коды, пропадает текст справа
 
 
 
#14
13.03.2014 17:57:00
решена
 
 
 
#15
13.03.2014 18:19:16
Отлично, спасибо!
 
 
 
#16
08.04.2014 09:55:59
Нужна помощь. Можно сделать чтоб в столбце перед кодом указувать порядковый номер как в примере? И возможно ли чтоб система указывала его сама?
 
 
 
#17
08.04.2014 10:02:36
=IF(ISBLANK(B2);"";COUNTA($B$2:B2))
 
 
 
#18
08.04.2014 10:34:46
Если можно Excel файл плиз
 
 
 
#19
08.04.2014 11:33:29
как-то так
 
 
 
#20
08.04.2014 11:34:16
Пожалуйста.
 
 
 
#21
08.04.2014 11:39:36
Ни разу случайно не сканировали по два раза один товар? Или продавцы сканировали, но молчали (не замечали)?
 
 
 
#22
08.04.2014 13:39:03
Спасибо, но в примере 1 порядковый номер вписывается системой, но при повторении кода они не объединяются в сумме а повторяются
 
 
 
#23
08.04.2014 14:53:54
Нужно сделать так чтоб порядковый номер устанавливался автоматически, но одинаковые кода не повторялись а объединялись
 
 
 
#24
08.04.2014 19:32:03
Тема о суммировании. А вы о чем?
 
 
 
#25
09.04.2014 09:47:04
С суммированием уже разобрались, теперь нужно чтоб автоматически приписывался порядковый номер
 
 
 
Страницы: 1
Наверх