按指定条件连接数据，指定位置显示结果

WYS67

lss001 发表于 2018-12-19 23:57
一直忙着，以后请重新发帖求助！
Function SSLJ(rng As Range, a, Optional b = "")
    Application.V ...

老师：上面是1楼附件的要求。
经反复测试，发现69楼的代码虽然补齐了被遗漏的最后一个三位数，代码运行时卡顿现象轻了很多！但又出现了新的问题，如下面截图所示：

上面两张截图是没有空格的数据源。1.图1显示的是：E:H列有指定显示位置参数的计算结果，最后一个三位数没有恰好显示在指定行号上，而是靠上了一行；2.图2显示的是G:H列：当指定行号数少于数据源连成的三位数个数时，计算结果就会显示空白。3.而当数据源有空格时，E:F列除了最后一个三位数没有恰好显示在指定行号上，而是靠上了一行外，全部没有显示连接而成的三位数，而是空白：


以上问题解决以后，决不再麻烦打扰老师！恳请老师处理上述问题。

多条件连接A列数据.zip (38.6 KB, 下载次数: 2)

2018-12-20 03:09 上传

点击文件名下载附件

WYS67

lss001 发表于 2018-12-19 23:57
一直忙着，以后请重新发帖求助！
Function SSLJ(rng As Range, a, Optional b = "")
    Application.V ...

老师：比较而言，11楼的代码【也就是59楼反映的】更接近要求。出现遗漏的总是最后一个三位数，如果把存放计算结果的起始行上移一行，然后顺次排列下来就行了！但69楼的代码运行效率更高！如果各取所长，就完美无憾了！

WYS67

lss001 发表于 2018-12-19 23:57
一直忙着，以后请重新发帖求助！
Function SSLJ(rng As Range, a, Optional b = "")
    Application.V ...

老师：比较而言，11楼的代码【也就是59楼反映的】更接近要求。偶尔出现遗漏的也总是最后一个三位数，如果把存放计算结果的起始行上移一行，然后顺次排列下来就行了！但69楼的代码运行效率更高！如果各取所长，就完美无憾了！

WYS67

lss001 发表于 2018-12-19 23:57
一直忙着，以后请重新发帖求助！
Function SSLJ(rng As Range, a, Optional b = "")
    Application.V ...

老师：新帖发在http://club.excelhome.net/thread-1452453-1-1.html，可惜没有人能够写出代码，只得厚着脸皮再次恳请您解决问题。切切拜上！

WYS67

lss001 发表于 2018-12-19 23:57
一直忙着，以后请重新发帖求助！
Function SSLJ(rng As Range, a, Optional b = "")
    Application.V ...

附： 原代码
Function SSLJ(rn As Range, a, Optional b = "")
    Dim ar, br, cr, dr, c%, d&, i&, j&, m&, n&, x&, y&
    Application.Volatile
    ar = rn: x = Application.Count(rn)
    c = (x - 2) Mod 3: d = Int(x / 3)
    For j = UBound(ar) To 1 Step -1
        If ar(j, 1) <> "" Then Exit For
    Next
    ReDim br(1 To j, 0): ReDim cr(1 To UBound(ar), 0): ReDim dr(1 To UBound(ar), 0)
    For i = 1 To j
        If ar(i, 1) <> "" Then y = y + 1: br(y, 0) = ar(i, 1)
    Next
    For i = 1 To UBound(ar)
        m = i * 3 + c
        If i < d Then cr(i, 0) = br(m - 2, 0) & br(m - 1, 0) & br(m, 0) Else: cr(i, 0) = ""
        If b <> 0 And b <> "" Then
            n = b - d - 3
            If i > n And i < b - 3 Then dr(i, 0) = cr(i - n, 0) Else: dr(i, 0) = ""
        End If
    Next
    If a = 1 And (b = 0 Or b = "") Then cr(d, 0) = br(x - 1, 0) & br(x, 0)
    If a = 1 And b <> 0 And b <> "" Then dr(b - 3, 0) = br(x - 1, 0) & br(x, 0)
    If b = 0 Or b = "" Then SSLJ = cr
    If b <> 0 And b <> "" Then SSLJ = dr
End Function
      此代码，当E:H列输入完整公式 {=SSLJ(数据区域，连接模式【0或1】，显示位置【0或指定行号】)  时，当A列数据个数除以3的余数为0或1时，显示的计算结果都非常正确；但余数为2时，就会出现如下所示的最后一个三位数被遗漏，而没有显示的错误。如下面三个截图所示


麻烦老师们看看是代码的哪一步计算出现的错误，并给予改正。下面是附件：


多条件连接A列数据.zip (52.99 KB, 下载次数: 0)

lss001

WYS67 发表于 2018-12-20 15:39
附： 原代码
Function SSLJ(rn As Range, a, Optional b = "")
    Dim ar, br, cr, dr, c%, d&, i&, j ...

实在忙，没过多验证，难免有误差！
现在只能挤点时间验证一下，见69楼附件！

WYS67

lss001 发表于 2018-12-20 17:59
实在忙，没过多验证，难免有误差！
现在只能挤点时间验证一下，见69楼附件！

经测试，这次基本正确！只是不明白，在E5:E120输入公式 {=SSLJ($A$5:$A$120,E$3,$F$1)  后，会显示#VALUE!错误？如果变成在E5:E145输入公式 {=SSLJ($A$5:$A$145,E$3,$F$1)，就能显示正确结果！
十分感谢老师在百忙中抽出时间为我呕心费神！以后坚决不会再打扰老师了！祝老师身体健康，工作顺利！

WYS67

lss001 发表于 2018-12-20 17:59
实在忙，没过多验证，难免有误差！
现在只能挤点时间验证一下，见69楼附件！

[size=0.83em]20181220183758.png (142.96 KB, 下载次数: 0)
下载附件  [url=]保存到相册[/url]

[color=rgb(153, 153, 153) !important]2018-12-20 18:38 上传

经测试，这次基本正确！只是不明白，在E5:E120输入公式 {=SSLJ($A$5:$A$120,E$3,$F$1)  后，会显示#VALUE!错误？如果变成在E5:E145输入公式 {=SSLJ($A$5:$A$145,E$3,$F$1)，就能显示正确结果！
十分感谢老师在百忙中抽出时间为我呕心费神！以后坚决不会再打扰老师了！祝老师身体健康，工作顺利！

WYS67

lss001 发表于 2018-12-20 17:59
实在忙，没过多验证，难免有误差！
现在只能挤点时间验证一下，见69楼附件！

经测试，这次基本正确！只是不明白，在E5:E120输入公式 {=SSLJ($A$5:$A$120,E$3,$F$1)  后，会显示#VALUE!错误？如果变成在E5:E145输入公式 {=SSLJ($A$5:$A$145,E$3,$F$1)，就能显示正确结果！
十分感谢老师在百忙中抽出时间为我呕心费神！以后坚决不会再打扰老师了！祝老师身体健康，工作顺利！

lss001

WYS67 发表于 2018-12-20 18:45
经测试，这次基本正确！只是不明白，在E5:E120输入公式 {=SSLJ($A$5:$A$120,E$3,$F$1)  后，会显示#V ...

参考69楼加入刷新代码！