以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 要怎么判断并移动单元格的数据,到上面空的单元格之中呢?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153147)

--  作者:龙潭春早
--  发布时间:2020/8/1 18:38:00
--  [求助] 要怎么判断并移动单元格的数据,到上面空的单元格之中呢?
有多个行,行中的多个列内容为空,想要把下面行的内容上移,逐行填充到这些行的为空的列中。

要怎么判断并移动这些数据呢?

--  作者:有点蓝
--  发布时间:2020/8/2 10:27:00
--  
参考:

Dim idx As Integer = Tables("表C").FindRow("第一列 is null")
Do While idx > -1 
    Dim i2 As Integer = Tables("表C").FindRow("第一列 is not null",idx)
    If i2 > 0 Then
        Tables("表C").Rows(idx)("第一列") = Tables("表C").Rows(i2)("第一列")
        Tables("表C").Rows(i2)("第一列") = Nothing
    Else
        Exit Do
    End If
    idx = Tables("表C").FindRow("第一列 is null")
Loop

--  作者:龙潭春早
--  发布时间:2020/8/2 17:40:00
--  
如果行中的多个列内容为空,要怎么实现一楼的任务呢?

这里是要把同一行的多个列内容,同步向上移。

尝试着写代码,感觉逻辑关系怎么也不容易捋顺。

蓝老师能给出一段 3列 以上情况的代码吗?
[此贴子已经被作者于2020/8/2 18:15:01编辑过]

--  作者:有点蓝
--  发布时间:2020/8/2 20:21:00
--  
同时判断3个列不就行了

Dim idx As Integer = Tables("表C").FindRow("第一列 is null and 第二列 is null and 第三列 is null")

--  作者:龙潭春早
--  发布时间:2020/8/2 21:55:00
--  
嗯嗯 多谢!

只是有的时候钻了牛角尖,就想不到那么多了图片点击可在新窗口打开查看