- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 要怎么判断并移动单元格的数据，到上面空的单元格之中呢？ (http://foxtable.net/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
--
嗯嗯 多谢！
只是有的时候钻了牛角尖，就想不到那么多了