日记首页V1.0


	日记首页 \| 列表 \| 添加日记 \| 管理登陆


	标题：vba一对一，按条件删除行

按条件删除条件以外的行的，3个写法vba一对一（输入），按条件删除行 <hr> Sub 删除其它行3_Click()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '指定列里指定位置做和 Dim i &nbsp; Myr = Range("D65535").End(3).Row &nbsp; For i = Myr To 3 Step -1 &nbsp;&nbsp;&nbsp; If ComboBox1.Value = Cells(i, 3) And TextBox1.Value = Cells(i, 4) Then &nbsp;&nbsp;&nbsp; Else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rows(i).Delete &nbsp;&nbsp;&nbsp; End If &nbsp; Next &nbsp; End Sub<hr>Sub 删除其它行_Click() Application.ScreenUpdating = False&nbsp;&nbsp;&nbsp; For i = Range("C65536").End(xlUp).Row To 3 Step -1&nbsp;&nbsp; '定义循环i到最底，从第3行开始&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ComboBox1.Value = Cells(i, 3) And TextBox1.Value = Cells(i, 4) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rows(i).Delete&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp; &nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp; Application.ScreenUpdating = TrueEnd Sub <hr> Sub 删除其它行2_Click() &nbsp; For i = 100 To 3 Step -1&nbsp;&nbsp; '定义循环i到100，从第3行开始&nbsp;&nbsp;&nbsp;&nbsp; If ComboBox1.Value = Cells(i, 3) And TextBox1.Value = Cells(i, 4) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseRows(i).Delete &nbsp;&nbsp;&nbsp;&nbsp; End IfNext End Sub