EXCEL中VBA如何实现有条件删除整行-excel删除vba代码,excel vba代码

这个问题我理解为将不用的单元格隐藏百，便于查找到需要的单元格。

具体步骤为：（假设隐藏O列及后面的列）

1、将光标点击一下O（如图）→ 同时按下Shift和Ctrl（键盘左下）→ 再按下“→”键 → 右键“隐藏”（度如图）即可。

2、取消隐藏专时，将光标放在N（最后一列）的右边，出现属

这个标识时，再右键选择“取消隐藏”

或者 将光标放在N（最后一列）的右边，出现

这个标识时，直接长按左键拉开。

这样就完成了取消隐藏的列。

Sub s()
    n = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Row
    m = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Column - 1
    For i = n To 1 Step -1
        For j = 1 To m
            If Cells(i, j) <> "" And Cells(i, j + 1) <> "" Then
                Rows(i).Delete
                Exit For
            End If
        Next
    Next
End Sub

set rr=selection.entirerows
set cc=selection.entirecolumns
rr.delete
cc.delete

给你百完度整代知码道把版：权

sub aa()
    for i=range("C65536").end(xlup).row to 1 step -1
        if cells(i,3)= 0 then
            rows(i).delete
        end if
    next
end sub