excel空格下的数据自动上移动

2025-04-06 06:41:55

推荐回答（3个）

回答1：

见截图

B1输入

=INDEX(A:A,SMALL(IF($A$1:$A$100<>"",ROW($1:$100),200),ROW(A1)))&""

数组公式，先按住CTRL+SHIFT,最后回车

公式下拉

回答2：

sub deleteblank()
for i = [A10000].end(xlup).row to 1 stap -1

if cells(i,1) = "" then cells(i,1).delete shift:=xlup

next

end sub
手头没电脑，没测试，不过应该没问题，有问题的话告诉我

回答3：

选择A列，===>数据===>删除重复项，即可