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

13782671637

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

13782671637

恳请老师们帮忙解决1楼运行速度特别慢的问题。

13782671637

恳请老师们帮忙解决1楼C列自定义函数公式运算速度慢的问题！

13782671637

恳请老师们帮忙解决1楼C列自定义函数公式运算速度慢的问题！

YZC51

其实原来公式就可以！
C6=LENGMA(B2:B6)
下拉即可
请不要重复发帖！！！

13782671637

YZC51 发表于 2018-6-15 07:57
其实原来公式就可以！
C6=LENGMA(B2:B6)
下拉即可

老师：您说的是哪个公式？

YZC51

这个
C6=LENGMA(B2:B6)

13782671637

YZC51 发表于 2018-6-15 08:12
这个
C6=LENGMA(B2:B6)

老师：运算规则：数据源B5开始的前几行，十位与个位上分别出现的不同数据不足两个时，C列相应位置显示空白才对。4楼群子老师的附件运算速度很快，但运算规则和上述不一致。如何屏蔽不符合运算规则的单元格为空白【即6楼C5:D8出现的问题】？

13782671637

YZC51 发表于 2018-6-15 08:12
这个
C6=LENGMA(B2:B6)

1楼LENGMA()的原代码是：Function LENGMA(rng As Range) As StringDim ss1 As String, ss2 As String, s1 As String, s2 As String, ar
If rng.Count > 1 Then
  ar = rng
  If ar(UBound(ar), 1) <> "" Then
     s1 = Mid(ar(UBound(ar), 1), 1, 1)
     s2 = Mid(ar(UBound(ar), 1), 2, 1)
     For i = UBound(ar) - 1 To 1 Step -1
        If ss1 = "" And Mid(ar(i, 1), 1, 1) <> s1 Then ss1 = Mid(ar(i, 1), 1, 1)
        If ss2 = "" And Mid(ar(i, 1), 2, 1) <> s2 Then ss2 = Mid(ar(i, 1), 2, 1)
        If ss1 <> "" And ss2 <> "" Then Exit For
     Next
     If ss1 <> "" And ss2 <> "" Then LENGMA = 3 - s1 - ss1 & 3 - s2 - ss2
  End If
End If
End Function
而4楼D列公式的代码是：
Function f(r1, r2, s)
    t11 = Left(r1, 1): t12 = Right(r1, 1)
    t21 = Left(r2, 1): t22 = Right(r2, 1)
    If t11 = t21 Then s1 = Left(s, 1) Else s1 = 3 - t11 - t21
    If t12 = t22 Then s2 = Right(s, 1) Else s2 = 3 - t12 - t22
    f = s1 & s2
End Function



如果E5输入综合公式：=IF(ROW()<15,LENGMA(B$5:B5),f(B4,B5,E4))，就能既保证了计算结果的正确，又极大地提升了运算速度！

我在想，怎样才能把上面的两个代码合二为一？恳请老师们帮忙解决！

13782671637

代码
Function f(r1, r2, s)
    t11 = Left(r1, 1): t12 = Right(r1, 1)
    t21 = Left(r2, 1): t22 = Right(r2, 1)
    If t11 = t21 Then s1 = Left(s, 1) Else s1 = 3 - t11 - t21
    If t12 = t22 Then s2 = Right(s, 1) Else s2 = 3 - t12 - t22
    f = s1 & s2
End Function
的运算规则是：B列相邻2行的数据，个位或十位上数字相同时，继承上一行计算结果。
否则，计算更新为3的补数。（即=3-第1行数-第2行数）；

如果能把运算规则修改成：B列数据源十位与个位上分别出现的不同数据不足两个时，C列相应位置显示空白；当十、个位同时出齐两个不同数时，则C列相应位置显示为3的补数（即=3-十位第一个数-十位第二个数&3-个位第一个数-个位第二个数）就好了！