Переделка макроса Суммирование значений со второй колонки при совпадении строк в первой колонки

@apmacison · Регистрация: 10.08.2022

Author24 — интернет-сервис помощи студентам

Нашел макрос он супер только не суммирует значения. он их вписывает в строку.

Как его можно исправить ?

Visual Basic

Dim x, v(), u(), i&
With CreateObject("scripting.dictionary")
    v = ActiveSheet.UsedRange.Columns(3).Value
    u = ActiveSheet.UsedRange.Columns(4).Value
    For Each x In v
        i = i + 1
        .Item(x) = .Item(x) & vbLf & u(i, 1)
    Next
    i = 0
    Worksheets.Add
    Columns(2).ColumnWidth = 40
    For Each x In .keys
        i = i + 1
        Cells(i, 1) = x
        Cells(i, 2) = Mid(.Item(x), 2)
    Next
End With

@elixi · 23.08.2022, 00:27

Сообщение от apmacison

Нашел макрос он супер только не суммирует значения. он их вписывает в строку.
Как его можно исправить ?

Если макрос не выполняет то что хотите, значит не тот макрос нашли.
Лучше бы сделали внятное задание: что у вас есть, какие данные,
как расположены и чего хотите достич в итоге. В идеале с файлом-примером.
Это был хороший шаг к исправлению. Иначе вряд ли кто-то поймёт что хотите.

Добавлено через 1 час 29 минут

Сообщение от elixi

Это был хороший шаг к исправлению.

Это был бы хороший шаг к исправлению.

@apmacison · 23.08.2022, 11:18 **[ТС]**

Есть таблица 4 столбца, первый номер по порядку, второй дата, третий наименование, а четвертый количество.
это данные вводиться на протяжении месяца, а в конце месяца нужно создать отчет.
На новом листе нужно вывести все наименования и количество, при нажатии на кнопку отчет на первом листе. много наименований может повторяться и они могут быть в разных строках поэтому вывести сумму повторяющихся наименований.

@Alex77755 · 23.08.2022, 12:06

Visual Basic

1	.Item(x) = .Item(x) & vbLf & u(i, 1)

заменить & vbLf & на +

@apmacison · 23.08.2022, 12:17 **[ТС]**

я пытался, но подсчет и отображение идет не правильно

@Alex77755 · 23.08.2022, 12:19

Тогда читай внимательно сообщения:

Сообщение от elixi

что у вас есть, какие данные,
как расположены и чего хотите достич в итоге. В идеале с файлом-примером.

@apmacison · 23.08.2022, 12:25 **[ТС]**

Вот таблица

@elixi · 23.08.2022, 13:03

apmacison, файл пустoй.
Пo вашему oписанию в пoсте 3, пoлагаю, чтo задачу мoжнo успешнo решить вставкoй свoднoй таблицы.
Есть такoе чудo в Эксцеле. Не прoбoвали? Если хoтите макрoс, мoжнo включить макрoрекoрдер и дoстанется вам и макрoс.

@apmacison · 23.08.2022, 13:08 **[ТС]**

Я то смогу, но есть девочки которые в магазине, а им не до этого поэтому хочу что бы им было лучше. Нажали кнопку, и отправили хозяйке.

@Alex77755 · 23.08.2022, 16:21

Visual Basic

Sub ot4et()
 
 
Dim x, v(), u(), i&, sl
Set sl = CreateObject("scripting.dictionary")
    v = ActiveSheet.UsedRange.Value
 
    For i = 2 To UBound(v)
        sl(v(i, 3)) = sl(v(i, 3)) + v(i, 4)
    Next
    
    u = sl.keys
    Worksheets.Add
    Columns(1).ColumnWidth = 50
    Columns(2).ColumnWidth = 40
    
    For i = 0 To UBound(u)
        Cells(i + 1, 1) = u(i)
        Cells(i + 1, 2) = sl(u(i))
    Next
 
End Sub

@apmacison · 28.08.2022, 17:13 **[ТС]**

а как можно что бы еще одна колонка переносилась? допустим если вместо даты будет поставщик, что бы понимать от кого.

@Alex77755 · 28.08.2022, 19:50

Сообщение от apmacison

Нашел макрос он супер только

сто пудов не надо искать макрос под свою задачу!
надо озвучить что ты хочешь ожидать от макроса!

@apmacison · 28.08.2022, 21:37 **[ТС]**

этот макрос который вы написали он супер, и все делает как нужно просто я хочу заменить вторую колонку вместо даты поставить поставщика, и что бы он переносил данные для отчета. Первая колонка поставщик, потом товар и суммировал
количество если товар совпадает.

@elixi · 29.08.2022, 00:39

Сообщение от apmacison

просто я хочу заменить вторую колонку вместо даты поставить поставщика

apmacison, а с девочками из магазина и хозяйкой вы посоветовались? Вы уверены что вам позволят заменить вторую колонку?

@apmacison · 29.08.2022, 11:44 **[ТС]**

да я посоветовался, это предложении хозяйки)

@elixi · 29.08.2022, 13:29

Сообщение от apmacison

да я посоветовался, это предложении хозяйки)

тогда возможно так?:

Кликните здесь для просмотра всего текста

Visual Basic

Sub ot4et()
Dim x, v(), u(), i&, sl, d$
Set sl = CreateObject("scripting.dictionary")
    v = ActiveSheet.UsedRange.Value
 
    For i = 2 To UBound(v)
        d = v(i, 2) & "#" & v(i, 3)
        sl(d) = sl(d) + v(i, 4)
    Next
    
    u = sl.keys
    Worksheets.Add
    For i = 0 To UBound(u)
        Cells(i + 1, 1) = Mid(u(i), 1, InStr(u(i), "#") - 1)
        Cells(i + 1, 2) = Mid(u(i), InStr(u(i), "#") + 1, Len(u(i)))
        Cells(i + 1, 3) = sl(u(i))
    Next
    Columns("A:C").AutoFit
End Sub

@elixi 335 / 183 / 101 Регистрация: 01.04.2020 Сообщений: 517
	29.08.2022, 00:39	14
	Сообщение от apmacison просто я хочу заменить вторую колонку вместо даты поставить поставщика apmacison, а с девочками из магазина и хозяйкой вы посоветовались? Вы уверены что вам позволят заменить вторую колонку? 0

@apmacison 0 / 0 / 0 Регистрация: 10.08.2022 Сообщений: 18
	29.08.2022, 11:44 [ТС]	15
	да я посоветовался, это предложении хозяйки) 0

@elixi 335 / 183 / 101 Регистрация: 01.04.2020 Сообщений: 517
	23.08.2022, 00:27	2
	Сообщение от apmacison Нашел макрос он супер только не суммирует значения. он их вписывает в строку. Как его можно исправить ? Если макрос не выполняет то что хотите, значит не тот макрос нашли. Лучше бы сделали внятное задание: что у вас есть, какие данные, как расположены и чего хотите достич в итоге. В идеале с файлом-примером. Это был хороший шаг к исправлению. Иначе вряд ли кто-то поймёт что хотите. Добавлено через 1 час 29 минут Сообщение от elixi Это был хороший шаг к исправлению. Это был бы хороший шаг к исправлению. 0

@apmacison 0 / 0 / 0 Регистрация: 10.08.2022 Сообщений: 18
	23.08.2022, 11:18 [ТС]	3
	Есть таблица 4 столбца, первый номер по порядку, второй дата, третий наименование, а четвертый количество. это данные вводиться на протяжении месяца, а в конце месяца нужно создать отчет. На новом листе нужно вывести все наименования и количество, при нажатии на кнопку отчет на первом листе. много наименований может повторяться и они могут быть в разных строках поэтому вывести сумму повторяющихся наименований. 0

@apmacison 0 / 0 / 0 Регистрация: 10.08.2022 Сообщений: 18
	23.08.2022, 12:17 [ТС]	5
	я пытался, но подсчет и отображение идет не правильно 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,222
	23.08.2022, 12:19	6
	Тогда читай внимательно сообщения: Сообщение от elixi что у вас есть, какие данные, как расположены и чего хотите достич в итоге. В идеале с файлом-примером. 0

@elixi 335 / 183 / 101 Регистрация: 01.04.2020 Сообщений: 517
	23.08.2022, 13:03	8
	apmacison, файл пустoй. Пo вашему oписанию в пoсте 3, пoлагаю, чтo задачу мoжнo успешнo решить вставкoй свoднoй таблицы. Есть такoе чудo в Эксцеле. Не прoбoвали? Если хoтите макрoс, мoжнo включить макрoрекoрдер и дoстанется вам и макрoс. 0

@apmacison 0 / 0 / 0 Регистрация: 10.08.2022 Сообщений: 18
	28.08.2022, 17:13 [ТС]	11
	а как можно что бы еще одна колонка переносилась? допустим если вместо даты будет поставщик, что бы понимать от кого. 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,222
	28.08.2022, 19:50	12
	Сообщение от apmacison Нашел макрос он супер только сто пудов не надо искать макрос под свою задачу! надо озвучить что ты хочешь ожидать от макроса! 0

@apmacison 0 / 0 / 0 Регистрация: 10.08.2022 Сообщений: 18
	28.08.2022, 21:37 [ТС]	13
	этот макрос который вы написали он супер, и все делает как нужно просто я хочу заменить вторую колонку вместо даты поставить поставщика, и что бы он переносил данные для отчета. Первая колонка поставщик, потом товар и суммировал количество если товар совпадает. 0

	29.08.2022, 13:29

Переделка макроса Суммирование значений со второй колонки при совпадении строк в первой колонки

Решение