如何使用InStr函数实现Excel表头名称与预设数组的匹配校验

• InStr执行逻辑反向的问题根源：将预设表头数组拼接为长字符串后用InStr做匹配的设计存在本质缺陷，且代码中所有单元格Range未锁定固定工作表，遍历过程中相对引用会随活动单元格偏移，最终造成命中列被误写入值的反向效果；同时InStr的子串匹配规则会把包含预设字段的非目标表头误判为命中，进一步放大逻辑偏差。
• 填充范围不全的问题根源：使用Cells(Rows.Count, Header.Column).End(xlUp).Row计算单列末行时，若目标列从第2行开始没有任何原有数据，End(xlUp)会直接跳转回第1行，最终生成的填充范围仅覆盖第2行单个单元格，完全达不到整列填充要求；未固定工作表引用也会导致多表操作时引用错位，出现部分列填充间隙、仅BD/BF/BG/BO列范围正常的现象。
• xlToRight无法遍历全表头的问题根源：Cells(1,1).End(xlToRight)的遍历终止规则是遇到第一行首个空单元格即停止，若第一行从A1开始存在间隔空单元格，表头Range会被截断，导致后续大量列无法被识别遍历。

Sub 批量填充未匹配列Customer值()
    ' 定义需要跳过的预设表头列表
    Const SKIP_HEADER_LIST As String = "ID,GENDER,REVENUE"
    Dim ws As Worksheet
    Dim lastHeaderCol As Long, lastDataRow As Long
    Dim currentHeader As String, skipHeaderArr As Variant
    Dim colIdx As Long, arrIdx As Long
    Dim needSkip As Boolean
    
    ' 绑定固定操作工作表，杜绝引用偏移
    Set ws = ActiveSheet
    
    ' 修正表头遍历范围：从工作表最右侧列反向定位第一行最后一个非空表头，避开中间空单元格截断问题
    lastHeaderCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    ' 修正数据末行：取全表跨列的最大有值行号，避免单列无数据时End(xlUp)跳行
    lastDataRow = ws.Cells(ws.Rows.Count, ws.Columns.Count).End(xlUp).Row
    ' 拆分跳过名单为独立数组元素
    skipHeaderArr = Split(SKIP_HEADER_LIST, ",")
    
    ' 逐列遍历所有表头
    For colIdx = 1 To lastHeaderCol
        needSkip = False
        currentHeader = Trim(ws.Cells(1, colIdx).Value)
        ' 做表头精确匹配，替代易出现子串误判的InStr逻辑
        For arrIdx = LBound(skipHeaderArr) To UBound(skipHeaderArr)
            If StrComp(currentHeader, Trim(skipHeaderArr(arrIdx)), vbTextCompare) = 0 Then
                needSkip = True
                Exit For
            End If
        Next arrIdx
        ' 未命中跳过列表的列，从第2行到全表末行统一填充Customer
        If Not needSkip Then
            ws.Range(ws.Cells(2, colIdx), ws.Cells(lastDataRow, colIdx)).Value2 = "Customer"
        End If
    Next colIdx
End Sub

• 完全替换拼接字符串+InStr的匹配方式，采用数组逐值精确比对，从根源上消除子串误匹配、逻辑反向的问题
• 表头遍历采用反向定位规则，解决第一行存在间隔空单元格时xlToRight截断、无法识别全量70列表头的问题
• 数据末行计算采用跨列全局定位规则，解决单列无原有数据时End(xlUp)异常跳行、仅填充单个单元格的问题
• 所有Range引用全部绑定固定工作表对象，彻底规避跨表引用、单元格坐标错位、填充间隙的问题

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