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

你应该给个项目让大家测试···· 

看看是不是这样的:

With Tables("产品核价")
    Dim n As Integer = .RowSel 
    For i As Integer = n To .count-2
        .rows(i)("产品尺寸") = .rows(i+1)("产品尺寸")
    Next
    .rows(.count-1)("产品尺寸") = Nothing
End With

"想实现清除某一行数据后能自动将下面各行数据上移，而且不影响其他列的数据位置。"  （这是你1楼说的呀）和：

“希望能够当指定列的中间某一行数据被删除后留下的空白能够由下面的数据上移补上”，有什么区别？？？

贴上来一个效果图····  看看。

8楼你的图片不是实现了你的要求吗，即：删除 产品尺寸列的123后，143141、ad不是上移了嘛。

又没有删除行，所以总行数当然不变罗···

估计你没说清楚自己的意思········