设计消除多行数字的代码

请求帮助设计消除多行数字的代码
假设A栏有50行，都是数字，但不是有规律排列，相同数字相距可能很远。求设一个按钮将A栏中凡是“3”的数字，以及它们

各自同行的B,C,D等多栏的内容全部消除掉，请求帮助设计代码，谢谢！

[解决办法]

VB code

Sub DeleteRows()    Dim lRow As Long    For lRow = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1        If Cells(lRow, 1).Value = 3 Then Cells(lRow, 1).EntireRow.Delete    Next lRowEnd Sub