Как присвоить ячейке с данными число?

[Pecnekm]

СПАСИБО, огромнейшее!

Всё работает отлично! Только получилось, что макрос подсчитывает просто кол-во одинаковых строк, а мне нужно еще и столбец с количеством.

Но это всё не проблема, я формулами всё сделал, только вот получился лишний столбец (желтый в примере) с кол-вом одинаковых позиций.

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

[Pecnekm]

Всё еще взываю к помощи... никак не могу разобраться как удалить столбец с подсчетом одинаковых позиций(желтый в примере).
Подскажите, пожалуйста!

[Hugo121]

Без Items:

      Range(TopCellDest).Resize(.Count).Value = WorksheetFunction.Transpose(.Keys)

[Pecnekm]

Не работает

Оно не пишет ничего в соседний столбец, но всё равно удаляет из него всё содержимое. То есть получается чистый столбец в который нельзя ничего записать.

[Pecnekm]

Кажется разобрался...
Если удалить строку :

Rng2.Resize(, 2).ClearContents

И убрать "Items" как Вы, Hugo, сказали, то вроде нормально работает. Только не знаю, правильно это или нет

[Hugo121]

Да, очистку выше я сперва не заметил, ну зато Вы опыт получили.
А насчёт правильно - ну раз Вам подсчитанные количества повторений не нужны, то и выводить их не нужно. Другое дело, что тогда и считать их незачем, ну да ладно, компьютер железный

Хотя при таком подходе к словарю можно всего лишь один плюс сэкономить
If Len(s) Then .Item(s) = "что-то" '.Item(s) + 1

[Pecnekm]

Вы знаете, когда удалил очистку, макрос не корректно стал работать.
Не обновлял данные которые отсортировал.
Вот когда поменял в "Rng2.Resize(, 2)" двойки на единицы, вроде заработало:

  If Intersect(Target, Rng1.EntireColumn) Is Nothing And Intersect(Target, Rng2.Resize(, 1).EntireColumn) Is Nothing Then Exit Sub

  Rng2.Resize(, 1).ClearContents

Хотя еще до конца не проверил, может и это не совсем правильно...

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

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

Они то нужно, но нужно чтобы еще учитывалась колонка с кол-вом. А так как в макросе не могу это организовать, сделал формулами

[Hugo121]

Вообще-то удаление очистки не должно влиять на работу макроса - просто могут остаться хвосты, если вдруг уникальных станет меньше.
Про суммы не понятно - можно вместо количества повторов суммировать суммы. Просто заносите в Item первую сумму, потом прибавляете следующую.
Если нужно и одно, и другое - можно в Item класть массив, в котором суммировать и одно, и другое, и что-нибудь ещё можно хранить.

[Pecnekm]

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

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

Всё верно, оно оставляет хвосты при редактировании данных в основном столбце с марками авто. А после того как изменил "Rng2.Resize(, 2)" на 1, вроде хвосты не оставлял.

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

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

Я не очень силен в макросах, по этому мне это будет не легко сделать

[Pecnekm]

Опять макрос кривовато работает
...достал уже...

Теперь если удалить весь список из которого он выбирает уникальные позиции - макрос перестает работать. Только после того как над первой ячейкой отчета написать что-нибудь(зеленая ячейка на примере), макрос запускается и нормально работает. Что с ним опять не так, подскажите, пожалуйста?!?