Nic70y, Спасибо. Первый вариант понравился больше.
Почему то с просто ВПР работает. А с тоже самое, но под ЕСНД ошибка
Чем они отличаются то?
[vba]Код
Sub Макрос()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("B1:B200").FormulaLocal = "=ВПР(A1;Лист2!A1:F200;2;ЛОЖЬ)"
Range("B1:B200").FormulaLocal = "=ЕСНД(ВПР(A1;Лист2!A1:F200;2;ЛОЖЬ);"")"
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
[/vba]
bmv98rus, Тоже спасибо.
на маленьком файлике получается, А когда вставляю в большой, где значения диапазона N$23:N$222 вычисляется формулой ниже, то ошибка Код
=ЕСЛИ(H23<>"";СЧЁТЕСЛИ(H$23:H23;H23);"")
Эти формулы эквивалентны?
[vba]Код
Range("I225").Formula = "=COUNTIF(N$23:N$222;1)"
Range("I225").FormulaLocal = "=СЧЁТЕСЛИ(N$23:N$222;1)"
[/vba]