как найти частичный текст в Excel

Question

У меня есть две колонки "A" и "B". Столбец "A" содержит полный текст (1000 позиций), а столбец "B" содержит частичный текст (250 позиций). Как я могу найти и разместить все позиции с неполным текстом (столбец B) против позиций с полным текстом (столбец A) или их номеров строк, в которых отображается частичный текст.

**Column A**
Two Apples are Sweet
Three Apples are Bitter
Five Apples are Sour
Two Grapes are Sweet
Three Grapes are Bitter
Five Grapes are Sour
Two Chilies are Sweet
Three Chilies are Bitter
Five Chilies are Sour

---

**Column B**
Apple
Chili
Grapes

Спасибо в ожидании вашей помощи и поддержки. С уважением Анил

Answer 1

Если вы имеете в виду «Найти все экземпляры" Apple "и заменить его на что-то другое», то вашим лучшим решением может быть короткий сценарий VBA, поскольку будет 250 операций поиска и замены. Тем не менее, мы до сих пор не знаем, что вы хотите заменить "Apple", поэтому мы пока не можем пройти очень далеко. Если у вас были значения замены в столбце C , тогда ваша таблица данных может выглядеть следующим образом:

Шесть яблок сладкие, яблоко, обезьяна
Три яблока горькие, чили, слон
Пять яблок кислые, виноград, корова
Шесть Сладкий Виноград ,,
Три винограда горькие,
Пять сортов винограда кислые ,,
Шесть чили сладкие ,,
Три чили горькие,
Пять чили кислые ,,

... в этом случае этот цикл VBA проходит по каждой ячейке в столбце B , найдите текст в столбце A и замените его текстом из столбца C

Option Explicit
Sub replaceAllText()
    Dim r As Long
    Dim findString As String
    Dim replaceString As String
    With ActiveSheet
        For r = 1 To .UsedRange.Rows.Count
            findString = .Cells(r, 2)
            If LenB(findString) > 0 Then
                replaceString = .Cells(r, 3)
                .Columns("A:A").Replace What:=findString, Replacement:=replaceString, LookAt:=xlPart, _
                    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                    ReplaceFormat:=False
            End If
        Next
    End With
End Sub

И дать вам такой результат:

Шесть обезьян сладкие, яблоко, обезьяна
Три обезьяны горькие, чили, слон
Пять обезьян кислые, виноград, корова
Шесть коров сладкие ,,
Три коровы горькие,
Пять коров кислые ,,
Шесть слонов сладкие ,,
Три слона горькие,
Пять слонов кислые ,,