Добавление текста в ячейки, в которых его нет

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление текста в ячейки, в которых его нет (Формулы/Formulas)

Russt

Дата: Суббота, 07.04.2018, 08:00 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

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

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

Excel 2010

Здравствуйте!

Как можно добавить слово только в ячейки, в которых его нет?

К сообщению приложен файл: 070418.xls(25.5 Kb)

Ответить

Pelena

Дата: Суббота, 07.04.2018, 08:18 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 12598

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

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

Excel 2010, 2016 & Mac Excel

Здравствуйте.

Код

=ЕСЛИ(ЕЧИСЛО(ПОИСК("киви";A3));A3;A3&" киви")

К сообщению приложен файл: 7105099.xls(25.5 Kb)

"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816

Ответить

Karataev

Дата: Суббота, 07.04.2018, 08:52 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1208

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

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

Excel

Вариант макросом. Предполагается, что данные начинаются со строки 2. Приложил файл, в котором работает этот макрос. В самом файле макроса нет.

Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288

Ответить

InExSu

Дата: Среда, 11.04.2018, 02:14 | Сообщение № 4

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

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

Сообщений: 333

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

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

Excel 2010

Привет!

[vba]

Код

Option Explicit

Sub ДОбав()
    Application.ScreenUpdating = False

    Dim rng As Range: Set rng = ActiveSheet.UsedRange
    Dim cel As Range
    Dim str As String: str = " киви"

    For Each cel In rng.Cells
        With cel
            If Len(.Value) <> 0 And _
               InStr(.Value, str) = 0 Then

                .Value = .Value & str
            End If
        End With
    Next cel

    Application.ScreenUpdating = True

End Sub

[/vba]

Сообщение отредактировал InExSu - Среда, 11.04.2018, 02:15

Ответить

Russt

Дата: Понедельник, 16.04.2018, 13:22 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

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

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

Excel 2010

Спасибо всем! Все работает!

Ответить

sv2014

Дата: Вторник, 17.04.2018, 20:31 | Сообщение № 6

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

Ранг: Форумчанин

Сообщений: 203

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

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

Excel 2013

Russt, еще вариант макроса,для демонстрации переменной $&,кнопки test и повтор

[vba]

Код

Sub test()
  Dim i&, t$
With CreateObject("VBScript.RegExp")
  For i = 3 To Range("A3").End(xlDown).Row: t = Range("A" & i): .Pattern = "киви"
      If .test(t) = False Then
       .Pattern = ".+": Range("A" & i) = .Replace(t, "$& киви")
      End If
  Next
  End With
End Sub

[/vba]

К сообщению приложен файл: example_16_04_2.xls(41.0 Kb)

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление текста в ячейки, в которых его нет (Формулы/Formulas)

Страница 1 из 1
1