从Excel调用VBA函数

Question

我正在创建一个函数来连接单个单元格中某个范围内的所有单元格。 该功能一切正常。

Function transposerange(Rg As Range)
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & " "
        End If
    Next
    transposerange = Left(xStr, Len(xStr) - 1)
End Function

如果将其保存在打开的工作簿中，则可以从excel中调用它。 如果我将此功能保存到个人工作簿中，则在我要调用它时不会出现在excel中。

我究竟做错了什么？

Answer 1

如果要在电子表格中使用此功能，请键入Personal.xlsb！transposerange（somerange）。 如果只想转置范围，则必须制作包含此UDF的add-id。