從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。