Поиск общего слова из двух столбцов и возвращаемое значение

Question

У меня есть два столбца в Excel, и я хочу посмотреть, есть ли между моими клетками общее слово (слова), например:

Ячейка А1: 76А08, 26А65, 22А26, 2А01, 12А05

Ячейка B1: 26A65, 22A26

В ячейке C1 получен результат: 26A65, 224A26

У меня более 7000 строк.

Answer 1

Это VBa сделает это

Помните, чтобы сначала создать резервную копию вашего файла! (В VBa нет опции отмены)

Поскольку у вас есть пустые строки, но вы знаете, сколько строк, вы можете использовать этот НЕПРОВЕРЕННЫЙ код.

Option Explicit
Sub doTheThing()

Dim row As Integer
row = 1

Dim totalRows as Integer
totalRows = 7000                      'Change the number to the total rows

for row = 1 to totalRows 

    Dim splitty() As String
    splitty = Split(Range("B" & row), ",")
    Dim i As Integer

    For i = 0 To UBound(splitty)
        Dim sp As String
        sp = splitty(i)
        If InStr(Range("A" & row).Value, Trim(sp)) Then
            Range("C" & row).Value = Range("C" & row) & sp & " "
        End If

    Next i

Next row

End Sub

Как добавить VBA в MS Office?

До

После