实用性很强的自定义过程和函数汇总（持续更新）

素心1218

这几天给别人编写东西，用到一些 经常用，写起来又很烦的过程和函数，这里进行了修改，有很强的通用性，汇总出来，提供给大家。后续还会不断更新。
具体代码都在附件的模块汇总中，需要用的直接把模块整个复制过去，可以直接调用。其中一些过程为了增加通用性，也加了参数，可以和公式一样调用。
'【1.从身份证号提取相应信息】（性别，生日，所在省市县），同时，可根据身份证长度、出生日期、地区码粗略判断身份证号是否合法，对不合法的项进行红色标注。
  '过程：tqsfzxx(sfzcol, xingbiecol, birthdaycol, diqucol, startrow, endrow)
  '参数说明：根据第sfzcol（整数）列的身份证号，将性别提取到第xingbiecol（整数）列，生日提取到第birthdaycol（整数）列，地区提取第diqucol（整数）列，提取是从第startrow（整数）行开始，到endrow（整数）行结束。
  '要使用该过程，请将【基础信息】拷入相应excel文件，并保证名称为【基础信息】，否则地区无法判断

'【2. 删除特定列带空数据的行】
   '过程：DeleteEmptyRows（czcol, startrow）
   '参数说明：在第czcol（整数）列的第startrow（整数）行开始查找带空数据的行，并删除

'【3.删除选中某一列带空白数据的行】
  '过程：DeleteEmptyRows_sel()
'  无参数，可以直接当成工具使用

'【4.显示EXCEL图标】，显示所有excel中存在的图标，当鼠标放上去后，显示其faceid值，便于对图标的引用
  '过程：ShowFaceIDs
'  无参数，可以直接当成工具使用

'【5.汉字转换为拼音】，函数，将汉字转换为拼音，中间用空格隔开
  '函数：getPY(str)
'  将str（汉字）转换为拼音，可以直接在单元格调用

'【6.汉字转换为首字母】，函数，将汉字转换为首字母
  '函数：getSZM(str,n)
'  将str（汉字）转换为首字母，n为0时转换为小写字母，n为1时转换为大写字母。可以直接在单元格调用

'【7.在两列中查找】，函数，返回行号
'函数：tlkup(col1, col2, fstr1, fstr2)
'查找符合第col1（整数）列值等于fstr1（字符串），且第col2（整数）列值等于fstr2（字符串）的第一行，返回行号