Excel VBA按条件设置单元格数字格式为文本时触发438错误求助

这个错误一般是因为代码里的对象引用出了问题——要么是调用了不存在的属性/方法，要么是没明确指定对象的归属。结合你的代码来看，主要有两个常见的问题点，我给你一步步梳理：

1. 先检查代码放对地方了吗？ #

Worksheet_SelectionChange是工作表专属的事件，你必须把这段代码放在你要操作的那个工作表的代码窗口里（比如右键点击工作表标签→查看代码，把代码粘在这里），绝对不能放在标准模块（比如Module1）里。如果放错位置，Excel找不到对应的工作表对象，就会直接报438错误。

2. 修正代码：明确指定工作表范围 #

你原来的代码里直接用Range()，默认会引用当前激活的工作表，但如果操作过程中切换了工作表，就会导致引用的对象不对。咱们用Me来指代当前工作表（因为代码在工作表模块里，Me就代表这个工作表本身），这样就能确保所有Range都指向正确的地方。

修正后的代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Long
    Dim lcell As Long
    ' 用Me限定，确保引用当前工作表的B列最后一行
    lcell = Me.Range("B90000").End(xlUp).Row
    For i = 8 To lcell
        ' 同样用Me指定Range所属的工作表
        If Me.Range("L" & i) <> "" And Me.Range("B8") <> "" Then
            Me.Range("M" & i).NumberFormat = "@"
            Me.Range("N" & i).NumberFormat = "@"
        End If
    Next i
End Sub

3. 给你两个额外的优化小建议 #

• 减少不必要的触发：SelectionChange事件会在你每次点击单元格时都执行，如果数据量很大，Excel会变得卡顿。你可以换成Worksheet_Change事件，只有当指定列的内容改变时才执行，比如：

  Private Sub Worksheet_Change(ByVal Target As Range)
      ' 只在B列或L列有修改时才运行代码
      If Not Intersect(Target, Me.Range("B:B,L:L")) Is Nothing Then
          Dim i As Long
          Dim lcell As Long
          ' 更通用的找最后一行的方法，适配所有Excel版本
          lcell = Me.Cells(Me.Rows.Count, "B").End(xlUp).Row
          Application.ScreenUpdating = False ' 关闭屏幕刷新，提速
          For i = 8 To lcell
              If Me.Range("L" & i) <> "" And Me.Range("B8") <> "" Then
                  Me.Range("M" & i).NumberFormat = "@"
                  Me.Range("N" & i).NumberFormat = "@"
              End If
          Next i
          Application.ScreenUpdating = True
      End If
  End Sub
  

• 更可靠的最后一行获取方式：Me.Cells(Me.Rows.Count, "B").End(xlUp).Row比固定写B90000更灵活，不管你的Excel支持1048576行还是更多，都能准确找到B列最后一个有数据的行。

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