1]环境

win7的32位

wps表格2019(11.8.2.10158)

2]打开VB编辑器

 

新建 模块 函数

  

 输入自定义函数 ，保存 并关闭VB窗口

Function zz(ByVal Rng As Range) As Integer
   zz = Rng + 1
End Function

引用 自定义 函数