自定义函数--提取单元格内多个被分开的数字

YZC51

'返回最后非空数据和单元格地址
Function 查找行列(sr, rg As Range, Optional x As Integer)
'‘Function 查找行列(sr As Range, rg As Range, Optional x = 0)
    Dim y   '0、默认，查找行列；1、查找列；2、查找行；3、查找列序号
    Set y = rg.Find(sr)
    c = y.Column
    r = y.Row
    查找行列 = Choose(x + 1, Chr(c + 64) & r, Chr(c + 64), r, c)
End Function

WYS67

YZC51 发表于 2020-3-7 20:03
Function 查找行列(sr As Range, rg As Range, Optional x = 0)
    Dim y   '0、默认，查找行列；1、查找 ...

老师：发现您编写的自定义函数第一、二参数大多被设置成sr As Range和rg As Range,它们的确切含义是什么？现在的百度搜索总是驴头不对马嘴，其解释让人一头雾水，比如：

Function 查找行列(sr As Range, rg As Range, Optional x = 0)
    Dim y   '0、默认，查找行列；1、查找列；2、查找行；3、查找列序号
    Set y = rg.Find(what:=sr)
    c = y.Column
    r = y.Row
    查找行列 = Choose(x + 1, Chr(c + 64) & r, Chr(c + 64), r, c)
End Function
第一参数sr As Range代表什么，第二参数rg As Range又代表什么？您可以用注释的办法列出参数的语法，如：



这样就好理解了。

YZC51

WYS67 发表于 2020-3-10 22:22
老师：发现您编写的自定义函数第一、二参数大多被设置成sr As Range和rg As Range,它们的确切含义是什么 ...

第一参数sr As Range代表什么
答：需要查找的字符

第二参数rg As Range又代表什么？
答：被查找的区域

YZC51

自定义函数第一、二参数大多被设置成sr As Range和rg As Range

答：只是习惯这么写！

WYS67

YZC51 发表于 2020-3-10 22:58
第一参数sr As Range代表什么
答：需要查找的字符

第一参数sr As Range代表什么
答：需要查找的字符

第二参数rg As Range又代表什么？
答：被查找的区域
您的解释清楚明了，谢谢老师！

看看百度知道是怎么说的？看得一头雾水。

YZC51

WYS67 发表于 2020-3-10 23:05
第一参数sr As Range代表什么
答：需要查找的字符

老师您客气了

WYS67

YZC51 发表于 2020-3-7 20:03
Function 查找行列(sr As Range, rg As Range, Optional x = 0)
    Dim y   '0、默认，查找行列；1、查找 ...

这个函数好！

WYS67

YZC51 发表于 2020-3-7 20:03
Function 查找行列(sr, rg As Range, Optional x As Integer)
'‘Function 查找行列(sr As Range, rg As R ...

查找内容.zip (14.26 KB, 下载次数: 9)

2020-3-11 17:05 上传

点击文件名下载附件

老师：如果修改第三参数为查找顺序，功能就强大多了！

当第三参数：指定为1时，代表自上而下、自左而右第一次出现的单元格地址；2时，代表自上而下、自左而右第二次出现时的地址…...
                   指定为-1时，代表自下而上、自右而左第一次出现的单元格地址；3时，代表自下而上、自右而左第二次出现时的地址…...
注意：当查找不到指定字符时，则显示空白！

公式举例：
=查找行列($C$5,$A$5:$A$100，1)  返回结果A11;
=查找行列($C$5,$A$5:$A$100，2)  返回结果A16;
=查找行列($C$5,$A$5:$A$100，3)  返回结果A29;
=查找行列($C$5,$A$5:$A$100，4) 因为没有对应的第4个字符，所以返回结果为空白！
同理：
=查找行列($C$5,$A$5:$A$100，-1)  返回结果A29;
=查找行列($C$5,$A$5:$A$100，-2)  返回结果A16;
=查找行列($C$5,$A$5:$A$100，-3)  返回结果A11;
=查找行列($C$5,$A$5:$A$100，-4) 因为没有对应的第4个字符，所以返回结果为空白！

WYS67

YZC51 发表于 2020-3-7 20:03
Function 查找行列(sr, rg As Range, Optional x As Integer)
'‘Function 查找行列(sr As Range, rg As R ...

老师：既然是查找，就会存在3种可能：

1.找不到符合条件的数据，结果返回空白，代表找不到对应数据；

2.有两个或两个以上符合条件的数据；

3.刚好有一个符合条件的数据。

您写的查找行列的自定义函数，只有在发生第三种情况时可以准确定位，如若发生第一种情况则显示#VALUE!错误；发生第二种情况，只能显示第一次出现时的地址。所以没有
388楼的运算规则所具备的功能强大和实用。

您也可以保持原有的所有功能，而把把原有的388楼的运算规则增加成第四参数继续使用【比较而言，把原有的第三参数修改为第四参数更合适】，那样会更强大！

YZC51

WYS67 发表于 2020-3-11 19:42
老师：既然是查找，就会存在3种可能：

1.找不到符合条件的数据，结果返回空白，代表找不到对应数据；
...

抱歉！近来琐事缠身，以后吧！