从两列中查找公共词并返回值

Question

我在 Excel 中有两列，我想查看我的单元格之间是否有常用词，例如：

单元格 A1：76A08、26A65、22A26、2A01、12A05

单元格 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

如何在 MS Office 中添加 VBA？

前

后