VBA宏判断找到的单元格是否在AP列，避免覆盖TOTAL列数据

核心问题解决：正确判断是否为AP列 #

VBA里不能直接用AP作为列的引用，你可以通过两种方式正确获取AP列的列号：

1. 直接使用列号
   AP列对应的数字是42（A=1，依次推算），直接替换判断条件：

If cell.End(xlToRight).Column = 42 Then
    MsgBox "已到达AP列（TOTAL列）"
End If

2. 动态获取列号（更灵活）
   如果后续列位置可能变动，用单元格引用动态获取列号，避免硬编码数字：

Dim totalCol As Integer
totalCol = Sheets("TEST").Range("AP1").Column ' 获取AP列的列号

If cell.End(xlToRight).Column = totalCol Then
    MsgBox "已到达AP列（TOTAL列）"
End If

优化建议：避免误触后续公式列 #

直接用cell.End(xlToRight)可能会因为后续公式列的存在跳转到最后一列，建议限定查找范围到AP列的前一列（AO列），确保只在数据列内操作：

Private Sub CommandButton1_Click()
    Dim cell As Range
    Dim totalCol As Integer
    Dim lastDataCol As Integer
    
    ' 获取AP列的列号（TOTAL列）
    totalCol = Sheets("TEST").Range("AP1").Column
    ' 数据列的最后一列是AP的前一列
    lastDataCol = totalCol - 1
    
    ' 查找匹配的代码
    Set cell = Sheets("TEST").Range("C6:C42").Find(What:=TextBox1, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False)

    If Not cell Is Nothing Then
        ' 从当前单元格向右查找最后一个有数值的单元格，限定在数据列范围内
        Dim lastValueCell As Range
        Set lastValueCell = cell.Offset(0, 1).Resize(1, lastDataCol - cell.Column).Find(What:="*", _
            LookIn:=xlValues, SearchDirection:=xlPrevious)
        
        ' 判断是否到达数据列末尾
        If lastValueCell.Column = lastDataCol Then
            MsgBox "已到数据列最后一列，即将进入TOTAL列"
        End If
        
        ' 后续计算逻辑...
    End If
End Sub

说明 #

• 用lastDataCol限定操作范围，确保不会触及AP列及后续的公式列
• 改用Find配合SearchDirection:=xlPrevious查找最右侧数值单元格，比End(xlToRight)更可靠，避免空单元格导致的错误跳转

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