在Excel的单元格中 调用VBA函数

说明：

自定义函数必须写在模块里，也是就（Module），（標準モジュール）

Public Function test001(ByVal str As String)

test001 = str & Space(5)

End Function

Public Function test002(r1 As Range)

test002 = r1.value & Space(5) & "sss"

End Function