Задать вопрос
@lobibithxf

Заполнение столбца с данными по предыдущему столбцу excel/notepad/emeditor?

как с 1 скрина сделать замещение, что бы получилось как на втором?

664604faa8f3b299814786.png664604fed452d555122875.png
  • Вопрос задан
  • 133 просмотра
Подписаться 2 Простой Комментировать
Пригласить эксперта
Ответы на вопрос 3
Если слева 1, то пишем 1красный, если слева 2 то пишем 2желтый
Ответ написан
Комментировать
@Akina
Сетевой и системный админ, SQL-программист.
Только и исключительно VBA-макросом.
Например, так:
Public Sub process_data(index_range As Range, values_range As Range)
Dim values()
Dim i As Integer
Dim coll As New Collection
Dim onecell As Range
values = values_range.Value
For i = LBound(values, 1) To UBound(values, 1)
    coll.Add Item:=values(i, 1), Key:=Left(values(i, 1), 1)
Next
For Each onecell In index_range
    onecell.Offset(0, 1).Value = coll(onecell.Value)
Next
End Sub

Sub test()
Call process_data(ThisWorkbook.Sheets(1).Range("A1:A26"), ThisWorkbook.Sheets(1).Range("B1:B3"))
End Sub
Ответ написан
Комментировать
@Disel0k
завести табличку вида:
1|1Красный
2|2Желтый

во втором столбце со скриншота прописать функцию ВПР с поиском по заведенной табличке и возвратом второго столбца
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы