除去重复的数字

wangg913 · 发表于 2018-3-9 21:34

用公式不好实现。改用代码

boom1188 · 发表于 2018-3-10 00:02

20180309-不重复数字.zip (16.06 KB, 下载次数: 4)
写了个自定义函数 , 函数名不重复数字()
2XL]0_0~7@W~8_$_TB(UEBB.png

boom1188 · 发表于 2018-3-10 00:35

写了个自定义函数 , 函数名不重复数字()

tu01 · 发表于 2018-3-10 09:02

谢谢！谢谢！太厉害了。

13782671637 · 发表于 2018-3-10 09:14

wangg913 发表于 2018-3-9 21:34
用公式不好实现。改用代码

版主大人：这两天，在多次实践中，发现在求J列同一数型的行号差时，因为J1:J3内需要输入表头内容，把JI:J3当作参数区域用起来很不方便。
所以麻烦您修改一下附件：

YILOUHH lss001 20180307 .zip (861.13 KB, 下载次数: 0) 里Q27：Q72的代码：默认省略YILOUHH(I5:I12547,JI:J3)参数区域J1:J3时，即输入公式YILOUHH(I5:I12547）则为求同一数型的行号差【J5:J12547显示的计算结果便是】。

由于急用，只得恳请版主大人帮忙修改一下为盼！

13782671637 · 发表于 2018-3-10 09:27

wangg913 发表于 2018-3-9 21:34
用公式不好实现。改用代码

版主大人：跪求您帮帮忙！

tu01 · 发表于 2018-3-10 09:49

boom1188 发表于 2018-3-10 00:02
写了个自定义函数 , 函数名不重复数字()

追问一个问题：现在A1单元格已经对数字进行统计（除去重复后的），在G1单元格如何对A1统计的数字计数？如1 2 3 G1写3个？

wangg913 · 发表于 2018-3-10 11:07

13782671637 发表于 2018-3-10 09:27
版主大人：跪求您帮帮忙！

是这样？
函数声明改为

Function YILOUHH(rng As Range, Optional rn As Range)

复制代码

函数变量声明完后，加一句。

If Not IsMissing(rn) Then Set rn = Range("J1:J3")

复制代码

13782671637 · 发表于 2018-3-10 11:28

本帖最后由 13782671637 于 2018-3-10 11:33 编辑

wangg913 发表于 2018-3-10 11:07
是这样？
函数声明改为

版主大人：对应VBA ，我纯粹是个菜鸟。我的本意是仍然保留K:O列的计算功能；但是，当输入的公式 =YILOUHH(数据区域，条件区域) 里缺省条件区域这个参数【即公式为：=YILOUHH(数据区域)】时，自动执行条件区域J1:J3等于空白的计算，如J5:J12547显示的计算结果一样。

也就是：在J5:J12547里输入公式=YILOUHH($I$5:$I$12547)，仍然能得出5:J12547显示的计算结果。

13782671637 · 发表于 2018-3-10 12:01

wangg913 发表于 2018-3-10 11:07
是这样？
函数声明改为

版主大人：验证后能实现我的想法。但作为一个能够广泛使用的自定义函数，
If Not IsMissing(rn) Then Set rn = Range("J1:J3") 里的J1:J3，会不会在其它工作表的其它列标下使用时，发生错误？

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

[求助] 除去重复的数字