从Excel中调用VBA函数

我正在创build一个函数来连接单个单元格中的一个范围内的所有单元格。 一切正常的function。

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

如果要在电子表格中使用此function，请inputPersonal.xlsb！transposerange（somerange）。 如果您只想转换范围，则必须使包含此UDF的add-id。