Обработка данных в Эксель

Доброго времени суток всем!
На поиск потратил много времени, не получилось найти ничего подобного
...
Делаю только первые шаги в ВБА
поэтому сам справиться не смог.

Очень нужна помощь в написании кода для такой задачи

Имеется диапазон в таблице Эксель, например (A1:T100) на Листе 1

В нём содержатся элементы:
числа ( например 1, 2.0 )
и тексты (в том числе содержащие числа: М-12, ТК-3.12 )
________________________________________ ______________________________

* каждый элемент находится в отдельной ячейке диапазона
т.е. выбирать только содежимое ячейки целиком.

Требуется

начиная с любой ячейки вне указанного диапазона пусть этого же Листа 1

1. Составить список (столбец) со всеми найденными значениями, имеющимися в заданном диапазоне
2. В соседнем столбце произвести суммирование одинаковых найденых элементов.

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

PS про функцию СЧЁТЕСЛИ мне хорошо известно. Дело в том что все варианты заранее не известны и каждый раз они разные ((


вот такая проблемка.

С уважением, Арафат

0

я пришел к выводу и понял что вся загвоздка в пустых ячейках

Уже прогресс! Всего четыре страници форума понадобилось..
Читай ответы хотя бы

0

Сообщение от lexsus надо прописать так чтобы когда до них доходило

предусмотреть нужно вдруг пропуски между ячейками может Вам и не надо но будете знать
Как сделать? Выше же было
Иф Лен(значение ячейки) = 0 Тогда ....

0

А изначально возможно ли наличие пустых строк?
А то мы ломаем тут копья на пустом месте, а автор просто не может конкретно поставить вопрос

0

ну поясните о LR = Cells(Rows.Count, 1).End(xlUp).Row, почему = 1
Что то смотрел на форумах, вроде не просто высчитать, дисскусия целая, а у Вас лихо одной строкой

0

изночально есть прайс 1232 позиции. мне нужно вставить в него прайс 1117 позиций. часть из этих позиций одинаково и мне нужно чтобы они в автомотическом режими сложились. 9 столбец озночает кол-во. вот я и хочу чтобы кол-во складывалось а остальные ячейки удолялись

0

Ну у меня при проверках показывает последнюю занятую строку в указанном столбце..

0

Сообщение от lexsus есть прайс 1232 позиции. мне нужно вставить в него прайс 1117 позиций

а разница где? и не в этом дело
пишите один раз на все случаи жизни

0

lexsus,
Что бы предметно говорить о чём-то нужно:
1. То, что есть (образец файлов)
2. То, что хотите иметь

0

Сообщение от Alex77755 в указанном столбце

понял но где он тут в строке: LR = Cells(Rows.Count, 1).End(xlUp).Row ?????

0

как сюда прайс скинуть

0

понял но где он тут в строке: LR = Cells(Rows.Count, 1).End(xlUp).Row ?????

Единичку видишь? так это она

0

понял, щас прайс скинет хлопец, всё раскупят
Там есть прикрепить файл или действия с вложениями но строго после того как нажмёшь ответить

Добавлено через 2 минуты
работает, странно написать, например "Y" нельзя я понимаю, как посчитать это, а как умно??

Добавлено через 3 минуты
лихо:
Просто, а что там спорились в другом месте, сейчас спрошу

0

прайс

Вложения

27.02.2011 ПРАЙС ПЕРВОГО ЭТАЖА.xls (63.0 Кб, 35 просмотров)

0

моё сообщение прочли?
поняли как узнать последнюю заполненную?

Добавлено через 6 минут
совет строку:
замените на
и после прохождения каждой стоки где есть "=" наводите курсор и поймёте что же ей присвоилось, будет подсвечивать

0

пересел за другой комп а там 7 офис не подскажите ка безопасность низкую поставить

0

2007
Круглая кнопка - Параметры Excell - Центр управления безопасностью - Параметры центра управления безопасностью - Параметры макросов - Включить все макросы

0

и не мучайтесь с таблицей 1500 строк, палец устанет, уменьшите до 5-6 строк, чтоб понять

0

так в том то и дело с 5-6 все получается

0

так смоделируйте 5-6 с пропусками

0

с количеством строк до 134 все отлично

0