为C列自定义函数的代码运算提速

13782671637

香川群子 发表于 2018-6-14 16:49
规则如下：
B列相邻2行的数据，个位或十位上数字相同时，继承上一行计算结果。
否则，计算更新为3的补数 ...

恳请老师按1楼E12:E15的运算规则编写代码。

13782671637

恳请老师按1楼E12:E15的运算规则编写代码。

YZC51

13782671637 发表于 2018-6-14 19:47
恳请老师按1楼E12:E15的运算规则编写代码。

我是无能为力。给你个折中方案，既能正确运算也能保证速度！请参考
B5=IF(ROW()<20,LENGMA(A$5:A5),LENGMA3(A4:A5,B4))

YZC51

附件来啦
冷码 反馈.zip (234.14 KB, 下载次数: 1)

2018-6-14 20:07 上传

点击文件名下载附件

13782671637

YZC51 发表于 2018-6-14 20:07
附件来啦

老师：最明显的是B20:B22的“23”，计算结果不正确。按道理，B列的答案只有“00，01，02，10，11，12，20，21，22”共9种，而您的计算结果却多了03，23，30，32，33。

13782671637

再顶！恳请老师按1楼E12:E15的运算规则编写代码。

13782671637

再顶！恳请老师按1楼E12:E15的运算规则编写代码。

13782671637

唉.....难道把1楼和4楼群子老师的公式嫁接，E5=IF(ROW()<15,LENGMA(B5:B$5),f(B4,B5,E4))，计算结果全部正确，速度也快了N倍，就是有点四不像。

YZC51

一时疏忽
Function LENGMA3(rng As Range, s As Range)
    On Error Resume Next
    s11 = Left(rng(1, 1), 1)
    s12 = Right(rng(1, 1), 1)
    s21 = Left(rng(2, 1), 1)
    s22 = Right(rng(2, 1), 1)
    SW = 3 - s11 - s21
    GW = 3 - s12 - s22
    If (s11 = s21) Then SW = Left(s, 1)
    If (s12 = s22) Then GW = Right(s, 1)
    LENGMA3 = SW & GW
End Function

13782671637

YZC51 发表于 2018-6-14 22:25
一时疏忽
Function LENGMA3(rng As Range, s As Range)
    On Error Resume Next

把您写的代码粘贴进去后，显示#VALUE!错误【估计是我公式输入方式不对？】，还请老师上传附件为盼！