主题：[讨论]指定列清除某一行数据内容后自动将各行数据上移且不影响其他列的数据位置

删除选定行数据，但不删除行：

Dim r As Row = Tables("表A").current
For Each c As col In Tables("表A").cols
    r(c.name) = Nothing
Next