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

WYS67

lss001 发表于 2018-10-5 17:44
Sub 更新保存()
sj = Timer
    Application.ScreenUpdating = False

老师：这个问题如果很复杂就不用考虑了，自有lsc900707版主和chxw68老师上线后会帮忙解决。我问您的意思是
   指定J1为偶数【0、2】时可以刷新数据，奇数【1、3】时却不能刷新数据，这个问题有点奇怪，估计是哪一句程序命令错误的原因。

恳请您还是解决咱自己的67楼、68楼里遇到的问题。

WYS67

lss001 发表于 2018-10-5 19:45
把→wb.CIose True
改为→wb.Save
试试

还是不行啊。

WYS67

lss001 发表于 2018-10-5 20:23
有什么提示？

还是那个问题。J1指定1、3时不能正常更新。

WYS67

lss001 发表于 2018-10-5 21:28
刚才测试完全可以呀？？！

我用的是W764位专业版office365
检查发现《1 组三》的sheet2(代码)里有这么几句代码，是干什么的？
'Private Sub Worksheet_Activate()
'    SelectValByNum
'End Sub

WYS67

lss001 发表于 2018-10-5 22:09
自定函数或过程
但已经用单引号注释掉了
对工作薄无影响

可以删除吗？
下面是用版主最新附件http://club.excelhome.net/forum. ... 775&pid=9677809  里的代码，当指定J1为3【3为三个分表全部更新】，录制的更新过程，结果最后3个数据一个也没有更新



老师：版主也是说没问题。估计现在正在看上面的视频。咱还是回到61楼咱自己的过程问题。您看是什么原因造成的？

WYS67

lss001 发表于 2018-10-5 22:13
可以删掉！！！

好的。老师！

WYS67

lss001 发表于 2018-10-5 23:01
62楼代码是根据60楼说明更新！！

老师：62楼找不到代码 啊！

WYS67

lss001 发表于 2018-10-6 00:23
Sub 更新保存()
sj = Timer
    Application.ScreenUpdating = False

老师：这个代码lsc900707版主昨夜已完全按照要求写了出来。在 http://club.excelhome.net/forum. ... 1438775&pid=9677915  。相比之下，您写的代码虽然运算速度慢了些，但结构更紧凑，逻辑更严谨！测试后结果也完全正确！真的很好！

WYS67

lss001 发表于 2018-9-29 09:38
见附件→_→→_→

老师：实际应用时，发现两个问题：1.如上图所示，各列公式显示的计算结果，最后一个三位数有时会出现【还有时候显示的结果正确】遗漏数据的情况。就是如上面截图的，在C:I列显示的计算结果最后，找不到A3542:A3544三个数连接的结果350.

  2.这个函数的代码，在计算过程中很卡。

多条件上下连接数据 - 副本.zip (1.25 MB, 下载次数: 8)

2018-12-19 14:25 上传

点击文件名下载附件

代码
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

恳请老师看看是不是代码里少显示了最后一行结果；怎样才能使代码计算时不卡？

坐等急用！恳请老师帮忙！

WYS67

lss001 发表于 2018-9-29 09:38
见附件→_→→_→

恳请老师帮忙解决59楼反映的问题。