Excel VBA自定义函数问题：工作表名称入参与xlLastCell异常

你的初始函数用Worksheet类型作为参数，要改为String类型接收工作表名称字符串，再通过名称定位到对应工作表。同时修正函数名与功能不符的问题（原函数是求和但叫fn_LastRow），并增加错误处理避免工作表不存在时崩溃：

Function SumSheetRange(ByVal Sht_name As String) As Long
    Dim targetSht As Worksheet
    ' 捕获工作表不存在的错误
    On Error Resume Next
    Set targetSht = ThisWorkbook.Worksheets(Sht_name)
    On Error GoTo 0
    
    If Not targetSht Is Nothing Then
        SumSheetRange = Application.WorksheetFunction.Sum(targetSht.Range("B1:B10"))
    Else
        ' 返回Excel标准名称错误值
        SumSheetRange = CVErr(xlErrName)
    End If
End Function

使用时在单元格输入=SumSheetRange("January 2022")即可计算目标工作表B1:B10区域的和。

你遇到的核心问题是自定义函数（UDF）的运行环境受限：

• SpecialCells(xlLastCell)依赖Excel的"已使用区域"缓存，但UDF无法正常访问这个缓存数据，导致返回值异常，出现行号1和地址$1:$1048576（整个工作表行范围）。
• 另外，UDF里的MsgBox不会生效，Excel会直接忽略交互式弹窗代码。

由于UDF不能依赖xlLastCell这类需要访问Excel缓存的方法，换用从底部向上查找第一个非空单元格的方式，这种方法在UDF环境下能稳定工作：

Function GetLastRow(ByVal Sht_name As String) As Long
    Dim targetSht As Worksheet
    On Error Resume Next
    Set targetSht = ThisWorkbook.Worksheets(Sht_name)
    On Error GoTo 0
    
    If Not targetSht Is Nothing Then
        ' 这里指定A列，可根据实际数据列修改
        GetLastRow = targetSht.Cells(targetSht.Rows.Count, "A").End(xlUp).Row
    Else
        GetLastRow = CVErr(xlErrName)
    End If
End Function

如果需要找整个工作表的最后一行（包含有格式的行），可以遍历所有列取最大行号，但通常指定数据列更实用。

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