excel整行有效数据上移替代列中值为0的行数据

a b c d
1 20 1 5 6
2 21 0 5 6
3 22 1 5 6
4 23 0 5 6
以b列为准，有什么办法可以整行删除0值行的数据，然后下面的数据整体上移，最好用VBA请高手编写，泪拜~~~求高手赐教~~~求高手赐教

用自动筛选
如对A列筛选，光标移到A1，菜单——数据——筛选——自动筛选，第一行出现小黑三角，点击A1的小黑三角，选“0” 后确定，全选留下的行，删除。
光标移到A1，点击小黑三角，选（全部）。
如对B列筛选，光标移到B1小三角，重复上面的步骤。

鼠标右键点击a列左侧，在弹出的选项中点击删除

选中B列，CTRL+H 替换所有的0为空值（“替换为”一栏什么也不填） 然后CTRL+G，定位“空值”，确定。就选中了空行了，然后单击鼠标右键删除，下方单元格上移~~ 注意：在替换窗口中点击“选项”，勾选“单元格匹配”，否则会把带有0的其他非零单元格中的0也替换掉，比如20会变成2）

1. 用VBA 2. 普通操作 筛选B列是0的行。从行号处选定这块范围 按F5，按定位条件→可见单元格 在选出的行号处点右键→删除

sub test() a = activesheet.[a65536].end(xlup).row for b = a to 2 step -1 if cells(b, 3).value = 0 then rows(b).delete '删除值为0的行 end if next end sub