来自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）。如果你只想要transposerange，你必须创建包含这个UDF的add-id。