除去重复的数字

wangg913

13782671637 发表于 2018-3-10 11:28
版主大人：对应VBA ，我纯粹是个菜鸟。我的本意是仍然保留K:O列的计算功能；  但是，当输入的公式 =YILOU ...

对啊，就是这么改的。前几行代码如下

Function YILOUHH(rng As Range, Optional rn As Range) As Variant()
    Dim arr1, i, ii, iii
    If Not IsMissing(rn) Then Set rn = Range("J1:J3")

wangg913

代码直接加在附件模块里了。

wangg913

13782671637 发表于 2018-3-10 11:28
版主大人：对应VBA ，我纯粹是个菜鸟。我的本意是仍然保留K:O列的计算功能；  但是，当输入的公式 =YILOU ...

哪个表调用这个函数，就引用这个表的J1:J3

13782671637

wangg913 发表于 2018-3-10 12:14
哪个表调用这个函数，就引用这个表的J1:J3

版主大人：如此修改代码，输入公式：=YILOUHH(I5:I20000)，J列实现了我心中所想；但K列再输入公式=YILOUHH(I5:I20000,K1:K3)，右拉至O列，却丧失了附件 YILOUHH lss001 20180307 .zip (861.13 KB, 下载次数: 1)

2018-3-10 12:29 上传

点击文件名下载附件

  里面K:O列多条件计算行号差的功能。
             您看怎样在保留原代码多条件计算行号差的功能基础上，实现：如果省略条件参数，输入=YILOUHH(I5:I20000)，则执行22楼您附件里的功能。

wangg913

13782671637 发表于 2018-3-10 12:35
版主大人：如此修改代码，输入公式：=YILOUHH(I5:I20000)，J列实现了我心中所想；但K列再输入公式=YILOUH ...

改成 这样，好久不用都忘了。

1. Function YILOUHH(rng As Range, Optional rn) As Variant()

复制代码

wangg913

去掉数据类型声明。ISMISSING，对多数数据类型不能传递。

13782671637

wangg913 发表于 2018-3-10 13:04
改成 这样，好久不用都忘了。

第一句改成 Function YILOUHH(rng As Range, Optional rn) As Variant()  后，K:O列的公式仍然不具备24楼附件里的多条件计算功能。

wangg913

再加一句自动重算
application.volatile

13782671637

wangg913 发表于 2018-3-10 14:20
再加一句自动重算
application.volatile

application.volatile放在哪里？麻烦版主大人最好像22楼那样上传附件说明。可以直观地看到J:O列显示的计算结果。

13782671637

13782671637 发表于 2018-3-10 14:45
application.volatile放在哪里？麻烦版主大人最好像22楼那样上传附件说明。可以直观地看到J:O列显示的计 ...

函数YILOUHH（rng As Range，Optional rn）As Variant（）
    Dim application.volatile， arr1，i，ii，iii
    If Not IsMissing（rn）Then Set rn = Range（“J1：J3”）

         是这样么？

     不行啊！提示--    编译错误：语法错误