Мотя, включил эту функцию, ничего не изменилось

Мотя, это совсем не точность, при больших цифрах, и нескольких расчетах, конечная стоимость разница почти на рубль..  

V, в моем примере округляем до 2 знаков, получаем 19,99.. а должно быть 20

Привет всем! Подскажите, как можно минимизировать потери от округления? Постоянно такая ерунда, где-то да на копейку не идет.. С функциями округления ситуация меняется в худшую сторону.

Здравствуйте! Имеется таблица с информацией о товаре. Возможно ли макросом осуществить следующий алгоритм:
1)Найти одинаковые артикулы (могут быть разбросаны по всему столбцу) в столбце E.
2)Вырезать из столбца F размер артикула (может иметь вид как 60, так и 48-50, идет от слова "размер" и до запятой) для анализа.
3)Сравнить вес нетто K и вес брутто L одинаковых артикулов, по отдельности, между собой. Если размеры одинаковы и вес нетто и/или брутто (поделенные на количество столбец - G) у них отличен, выделить ячейки K и/или L красным цветом; если размеры различны, но у меньшего размера вес нетто и/или брутто больше, чем у большего размера, также выделить ячейки K и/или L соответствующие сравниваемым артикулам красным цветом. В примере попытался все показать.

Спасибо!

Здравствуйте, уважаемые знатоки эксель! Помогите макросом, который будет выделять повторяющиеся ячейки разными цветами, в зависимости от того, сколько раз она повторяется. Например: два повторения в столбце - зеленым цветом, три повторения - желтым, четыре и более - синим. Условным форматированием это не осуществить?

ino, благодарю, теперь понятно.

ber$erk, необходимо чтобы и текст1 и текст2 убирались, при наличии

Подскажите что здесь не так?
=ПОДСТАВИТЬ(C3;{"ТЕКСТ1 ";"ТЕКСТ2"};"")
При наличии в ячейке C3 текста1, он убирается, при наличии текста2 он остается.

Михаил С., спасибо!

Михаил С., подскажите как сделать чтобы макрос не ел цифры?
если сделать так - If Right(Trim(Range("G" & i)), 1) Like "[A-ÿ]" or "[0-9]" Then - цифры не трогает, но и запятые и двоеточия также оставляет..

спасибо всем за помощь!

Цитата
Юрий М пишет: А возможна ситуация, когда там нет ни одного из этих символов ( ";" "," "/"    ?

может быть пробел, пример в приложении

без создания доп ячеек не получится?

да, внутри предложений знаки тоже присутствуют(

Добрый вечер! В книге есть столбец - G4:G200, в каждой ячейке столбца - предложения, заканчивающиеся на ";"  ","  "/" Как с помощью макроса (именно макроса, чтобы не создавать дополнительных ячеек для обработки) осуществить замену данных символов на "."??
Спасибо!

при наличии в столбце А вместо цифры - "" - выдает ошибку, возможно это обойти?

Спасибо! Все отлично работает!!))

ругается на a = [a2].CurrentRegion.Value...

У Семенова 60 - сумма всех чисел С1:C3 отобранных по столбику А (число 1), без учета 1 в конце, т.к. она находится отдельно от верхних 1.. Фамилии роли не играют, необходимо осуществить поиск по столбцу А, если ближайшие значения А совпадают, осуществить суммирование в ячейке С, если не совпадают, все остается как есть.. например, как в случае с Семеновым, т.к. A1=A2=A3, значит С1=С1+С2+С3, C2="";C3=""; если A1<>A2; C1=C1;C2=C2.. но в таблице есть еще одна A13=1; здесь С13=C13, т.к. значения ближайших А<>1

Привет всем! Есть табличка:
1 Семенов 10
1 Иванов 20
1 Петров 30
2 Ветров 40
2 Ирхин 50
3 Юрсин 60
4 Тайсов 70
5 Мукин 80
6 Вилков 90
7 Сетков 100
7 Горошков 110
1 Иванов 120
5 Семенов 130
Необходимо найти одинаковые значения в столбце А которые находятся рядом (именно рядом, а не по всей таблице), суммировать их, результат вывести в верхний столбик С, нижние значения удалить. Вот как должно получиться:
1 Семенов 60
1 Иванов
1 Петров
2 Ветров 90
2 Ирхин
3 Юрсин 60
4 Тайсов 70
5 Мукин 80
6 Вилков 90
7 Сетков 210
7 Горошков
1 Иванов 120
5 Семенов 130

Цитата
ikki пишет: For Each cell In [L21].resize([A13].Value).Cells

все заработало!! спасибо большое!!

ошибку выдает в строке For Each cell In [L21].resize([A13].Value).Cells

Hugo, а13 считает количество заполненных ячеек и выдает значение в Вашем случае - цифра 2
For Each cell In [L21:L(21+A13)].Cells, получается так For Each cell In [L21:L23].Cells, т.е. проверяются только ячейки таблицы, возможно такое?

прошу прощения за невнятность, немного не трезв)) в общем нужно каким-то образом вставить в строку For Each cell In [L21:L1000].Cells вместо L1000 значение ячейки А13 (она у меня считает кол-во заполненных строк в таблице). Итого функция будет обрабатывать только заполненную таблицу а не все 1000 строк. Вот.

Привет всем! Нашел в интернете функцию для скрытия строк с пустыми ячейками

Код
Sub тест() Dim cell As Range: Application.ScreenUpdating = False For Each cell In [L21:L1000].Cells If cell.Find("*", , xlValues, xlPart) Is Nothing Then cell.EntireRow.Hidden = True End If Next cell End Sub

Функция очень долго работает, т.к. много обрабатываемых ячеек.
На странице создал ячейку А13 с подсчетом заполненных ячеек, как ее вставить с таким смыслом [L21:L(A13)].Cells??

Друзья!  
С наступающим всех!  
 
Имеем:  
1. Лист excel с данными, которые необходимо сравнить между собой  
2. Макрос для решения этой задачи.  
 
Вопрос: в макросе не работает команда "exit for", т.е. после того как условие выполнено, цикл продолжается. В чем я ошибся?  
 
Sub Данные()  
 
For a = 1 To 3  
   For b = 2 To 5  
       Cells(b, 5) = 1  
       If Cells(a, 1) = Cells(b, 6) And Cells(a, 2) = Cells(b, 7) And Cells(a, 3) = Cells(b, 8) Then  
           Cells(a, 4) = "Да"  
           Exit For  
       End If  
   Next b  
Next a  
 
End Sub