Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

12th
Мар

Поиск значения и вставка текста

Posted by obzor under VBA

Помогите с формулой или скриптом который найдёт на листе все надписи NC и рядом с этим текстом в соседней ячейке добавит надпись LIBER. Или может как-то это можно сделать через поиск/замена.

сфинкс

D1
=ЕСЛИОШИБКА(ЕСЛИ(НАЙТИ(«NC»;B1);»LI BER»);»»)
и расширить вниз

Чтобы всё было в 1 столбце
важно числа вводить в другом столбце
и в нужном столбце объединить

=СЦЕПИТЬ(D1;E1)
или
=D1&E1

Elixi

Код:

Sub zenner()
    Dim Rw&, RwF&, RwL&
    
    Sheets("STDEP V5ID-8 (2)").Activate
    RwF = 1: RwL = Cells(Rows.Count, "B").End(xlUp).Row
    
    For Rw = RwF To RwL
        'Cells(Rw, "B").Select
        If Cells(Rw, "B").Value = "NC" Then
            Cells(Rw, "C").Value = "LIBER"
            Cells(Rw, "C").Font.Color = vbRed
        End If
    Next
    
End Sub