VBA自定义函数(查找当前行之前同项目的其他列).xls