1、打开一份Excel文件，如"莫浅北的函数库.xlsx"，也可以新建工作表。
2、按ALT + F11进入vba编辑界面。
新建模块：在打开的窗口，"插入"菜单选择"模块"。
3、录入如下代码：
Function FINDD(STR As String, Ran As Range, i As Integer)
'函数名称可以使用你习惯的方式命名，注意同时修改此代码所有的FINDD
'使用vba的find函数，实现工作表的match、index功能
Dim rng As Range
Set rng = Ran.Find(STR)
If Not rng Is Nothing Then
FINDD = rng.Offset(0, i) '右侧为正，左侧为负
End If
End Function
4、在工作表中使用公式=FINDD(查找字符,该字符所在列区域,向右偏移N列)
如果是向左查询，最后一个参数使用负数即可。
5、另存为xlam启动加载项格式文件，比如"莫浅北的函数库.xlam"。
6、在开发工具选项卡-Excel加载项中勾选刚才的"莫浅北的函数库"，这样，电脑中的Excel程序本身就可以使用自定义的公式了。
