Excel VBA技术求助：从末尾删列直至找到精确匹配的"Event Notes"表头

你的代码问题在于用InStr判断开头匹配，会把像"Event Notes Dates"这种以"Event Notes"开头的表头误判为目标，导致提前退出循环。要实现精确匹配，直接比较单元格值即可。

修正后的代码 #

Dim lastCol As Integer
' 获取最右侧有内容的列号
lastCol = myWorksheet.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

' 从最右侧列向左遍历
For iCounter = lastCol To 1 Step -1
    ' 精确匹配表头文本
    If myWorksheet.Cells(1, iCounter).Value = "Event Notes" Then
        Exit For
    Else
        myWorksheet.Columns(iCounter).EntireColumn.Delete
    End If
Next iCounter

关键修改说明 #

• 替换了判断逻辑：把InStr(1, ..., "Event Notes") = 1改为直接的精确相等比较，只有表头完全等于"Event Notes"时才会停止删除。
• 提取lastCol变量：避免循环中重复执行Find操作，提升代码效率和可读性。

可选优化（处理大小写/空格） #

如果表头可能存在大小写差异或首尾空格，可以用以下判断逻辑增强鲁棒性：

If Trim(UCase(myWorksheet.Cells(1, iCounter).Value)) = UCase("Event Notes") Then

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