以文本方式查看主题 -  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=161285)

--  作者：13796361423 --  发布时间：2021/3/12 9:17:00 --  把某一列排序后移动行 我想把第一列升序或降序排列，排列后中间那部分是12  。   我想在所有行中间的地方，分两半，上半部分到头几行的位置， 下半部分到尾几行位置。 请问如何能实现？ 此主题相关图片如下：888.jpg [此贴子已经被作者于2021/3/12 9:17:49编辑过]

--  作者：有点蓝 --  发布时间：2021/3/12 9:30:00 --   Tables("表A").sort = "第一列" Dim idx As Integer = math.Floor(Tables("表A").Rows.Count / 2) For i As Integer = 0 To idx     Tables("表A").Rows(i)("第二列") = "上半部分" Next For i As Integer = idx+1 To Tables("表A").Rows.Count - 1     Tables("表A").Rows(i)("第二列") = "下半部分" Next