CSE UDF VBA仅返回第一个元素

在VBA中，可以使用以下代码来实现CSE（Ctrl + Shift + Enter）UDF（User-Defined Function）仅返回第一个元素：

Function FirstElement(arr As Variant) As Variant
    Dim firstElement As Variant
    
    On Error Resume Next
    firstElement = arr(1)
    On Error GoTo 0
    
    FirstElement = firstElement
End Function

这个函数接受一个数组作为参数，并返回数组的第一个元素。如果传入的参数不是一个数组，或者数组为空，则返回一个错误值。

这个函数使用了错误处理来处理可能发生的错误。当尝试访问数组的第一个元素时，如果数组不是有效的数组（不是一个数组或者数组为空），则会发生错误。通过使用On Error Resume Next语句，可以忽略这个错误，并将错误值赋给变量firstElement。然后通过On Error GoTo 0语句，将错误处理重新设置为默认模式。最后，将firstElement的值作为函数的返回值返回。

这个函数可以通过在Excel中使用公式调用来获取数组的第一个元素。例如，假设数组存储在A1:A5范围内，可以使用以下公式来获取第一个元素：

=FirstElement(A1:A5)

请注意，这个函数仅返回第一个元素，而不是整个数组。如果需要返回整个数组，请使用普通的VBA函数，而不是CSE UDF。