VBA遍历Excel表格匹配 按列名赋值及返回相邻列值问题咨询

Sub MatchKeywordWithFullName()
    Dim lRow As Long, lRow2 As Long
    Dim resCol As Long ' Results列的列号
    Dim keywordsArray() As Variant ' 同时存关键词和对应完整名称
    Dim i As Long
    Dim cell As Range
    Dim sht As Worksheet, sht2 As Worksheet

    ' 提前定义工作表对象，避免重复调用
    Set sht = Worksheets("MainTable")
    Set sht2 = Worksheets("SecondaryTable")

    ' 先计算两个表的有效行数，再给数组赋值，修正原代码的顺序错误
    lRow = sht.Range("A1").CurrentRegion.Rows.Count
    lRow2 = sht2.Range("A1").CurrentRegion.Rows.Count

    ' 需求1实现：匹配表头找到"Results"对应的列号，替代硬编码偏移
    resCol = Application.Match("Results", sht.Rows(1), 0)
    ' 判错逻辑，避免找不到列的运行时报错
    If IsError(resCol) Then
        MsgBox "MainTable中未找到名为Results的列，请检查表头", vbCritical
        Exit Sub
    End If

    ' 需求2实现：同时读取关键词列和完整名称列到二维数组
    keywordsArray = sht2.Range("A2:B" & lRow2).Value

    ' 遍历MainTable的I列待匹配单元格
    For Each cell In sht.Range("I2:I" & lRow)
        ' 跳过空单元格避免报错
        If cell.Value <> "" Then
            For i = 1 To UBound(keywordsArray, 1)
                ' 匹配到关键词时，写入对应完整名称到Results列
                If InStr(1, cell.Value, keywordsArray(i, 1), vbTextCompare) > 0 Then
                    ' 多个匹配结果用空格分隔，和原逻辑一致
                    sht.Cells(cell.Row, resCol).Value = Trim(sht.Cells(cell.Row, resCol).Value & " " & keywordsArray(i, 2))
                End If
            Next i
        End If
    Next cell

    ' 释放对象
    Set sht = Nothing
    Set sht2 = Nothing
    MsgBox "匹配完成", vbInformation
End Sub

• 需求1：指定列名定位写入位置
  原固定偏移量的写法弊端是表格调整列顺序后写入位置就会错位。本实现用Application.Match直接在MainTable的表头行查找"Results"对应的列号，后续通过sht.Cells(行号, 列号)的方式定位写入单元格，完全不需要计算偏移量。如果你的目标列名不是"Results"，直接修改Match函数里的字符串即可。
• 需求2：匹配关键词返回对应B列完整字符串
  你之前调用word.offset(0,1).Value报错的核心原因是：原代码里wordsArray存储的是单元格的值（字符串类型），不是Range对象，没有Offset属性。本实现直接把SecondaryTable的A、B两列同时读取到二维数组里，数组的第1列对应关键词，第2列对应完整名称，循环时通过同一个下标就能直接拿到匹配关键词对应的完整字符串，遍历效率比操作单元格更高。

内容的提问来源于stack exchange，提问作者matc