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

summeren · 发表于 2020-4-3 15:34

本帖最后由 summeren 于 2020-4-3 15:44 编辑

YZC51 发表于 2020-3-28 19:56
老师你好！很抱歉，对于公式不熟悉！

老师，能否帮忙看一下 469的自定义函数，超过12个不重复值就不显示了。请指导。我后面发现跟表格的使用范围有关系，只要表格userange行数超过当前去重复数字就可以；

如果你在新建的表格；A1输入1，2，3，4，5，6，7 在B1输入=uniqueq(a1) ，只得到一个1，如果你在A10单元格随便输入一个数字，再执行这个函数可以得到1-7 7个数值

wangrunming · 发表于 2020-4-3 15:55

YZC51 发表于 2018-10-29 06:51
Public Function getPy$(ByVal rng$)
'汉字转拼音首字母，自定义函数:
Dim i%, pyArr, str$, ch$

有意思，我记得有个身份证校验

YZC51 · 发表于 2020-4-3 16:05

summeren 发表于 2020-4-3 15:34
老师，能否帮忙看一下 469的自定义函数，超过12个不重复值就不显示了。请指导。我后面发现跟表格的使用范 ...

老师好！这个函数写的很棒！有时间学习下！

WYS67 · 发表于 2020-4-6 20:17

本帖最后由 WYS67 于 2020-4-7 09:07 编辑

YZC51 发表于 2020-3-13 15:33
请参考
Function CZWZ(sr, rng As Range, Optional x As Integer, Optional y As Integer)
If Len(x ...

返回指定数据对应的行、列位置.zip (61.63 KB, 下载次数: 18)

老师：如上图和附件所示：

已知：查找区域在《数据源》的I5:I10252里，需要查找的值在《查找结果》的A5:A60里；

现在需要查找A5:A60的指定值，在数据源!I5:I10252中最后一次出现的行号，在B5里输入公式 =CZWZ($A5,数据源!$I$5:$I$10252,"-1",2)，下拉至B60
B5:B60就是公式计算的结果。

问题：56个查找值，感觉就卡卡的，如果A列需要查找的值更多，是不是更卡？

能不能设置：第一参数查找值既可以指定单个输入【如$A5】，也可以指定区域输入【如$A$5:$A$60】，当第一参数指定为单元格时，采取普通公式输入；而当指定为区域时，采取区域数组公式输入--这样是不是可以大幅提高运算效率？
Function CZWZ(sr, rng As Range, Optional x As Integer, Optional y As Integer)
If Len(x) = 0 Then CZWZ = "": Exit Function
'  y=  0、默认，单元格绝对引用；1、查找列；2、查找行；3、单元格相对引用
Dim d As Object, arr, brr, v, xd, n%
arr = rng
Set d = CreateObject("Scripting.Dictionary")
For Each s In arr
      d(i) = ""
Next
brr = d.keys
n = UBound(brr)
For Each s In rng
      If s = sr Then '为精确查找
      'If InStr(s, sr) Then 为模糊查找
         n = n + 1
         ReDim Preserve brr(0 To n)
         brr(n) = s.Address
      End If
Next
If Abs(x) > UBound(brr) Then CZWZ = "": Exit Function
If x < 0 Then x = UBound(brr) + x + 1
v = Split(brr(x), "$")
CZWZ = Choose(y + 1, brr(x), v(1), v(2), v(1) & v(2))
End Function

WYS67 · 发表于 2020-4-7 09:36

请老师看看475楼的问题怎样解决？

YZC51 · 发表于 2020-4-10 06:05

WYS67 发表于 2020-4-6 20:17
老师：如上图和附件所示：

已知：查找区域在《数据源》的I5:I10252里，需要查找的值在《查找 ...

老师好！抱歉对数组输入不太熟悉！

YZC51 · 发表于 2020-4-10 06:06

三级下拉清单(数据有效性、控件、弹出菜单3种方法实现)

三级下拉清单(数据有效性、控件、弹出菜单3种方法).zip (93.96 KB, 下载次数: 28)

noahsarkfzq · 发表于 2020-4-19 15:32

YZC51 发表于 2019-9-7 19:09
'//本程序参考兰色幻想老师的 Wlookup 函数制作。在此致谢！2019-09-08 05:23:13

模拟微软最新 Xlooku ...

多条件查找能实现吗，谢谢！
=XLOOKUP(I4&J4,B4:B19&C4:C19,E4:E19)

YZC51 · 发表于 2020-4-19 16:03

noahsarkfzq 发表于 2020-4-19 15:32
多条件查找能实现吗，谢谢！
=XLOOKUP(I4&J4,B4:B19&C4:C19,E4:E19)

老师好！应该可以多数据输出！

YZC51 · 发表于 2020-4-20 12:11

当查到只有一条记录时直接输入

BOM(当查到只有一条记录时直接输入)-1.rar (52.57 KB, 下载次数: 21)

		自动登录	找回密码
密码			免费注册

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

评分

评分

评分

评分