Вставить тест в ячейку согласно условию.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вставить тест в ячейку согласно условию. (Макросы/Sub)

Mark1976

Дата: Пятница, 28.04.2023, 09:02 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 754

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Здравствуйте. Я работаю с файлами, где в одной из колонок стоят цифры (зашифрованы названия СМО). Мне нужен макрос, которые будет автоматически проставлять начиная с ячейки Е5 и вниз где есть данные названия СМО в виде текста. Заменить: 8 на Согаз, 15 на Капитал, 14 на Макс-М. Заранее спасибо за решение.

К сообщению приложен файл: reestr.xlsx (82.9 Kb)

Ответить

Апострофф

Дата: Пятница, 28.04.2023, 09:13 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 457

Репутация: 126 ±

Замечаний: 0% ±

Excel 1997

[vba]

Код

Sub Mark()
Dim R&
For R = 5 To Cells(Rows.Count, "E").End(xlUp).Row
  Select Case Cells(R, "E")
    Case 8: Cells(R, "E") = "Согаз"
    Case 15: Cells(R, "E") = "Капитал"
    Case 14: Cells(R, "E") = "Макс-М"
  End Select
Next R
End Sub

[/vba]