补充代码使内置数值改为对话框输入

maydbl

以下代码是用于查找关键数值（如123579）、符合条件的行提取在sheet2。由于需查找数值类型较多，每次都在代码处修改太麻烦！想改为对话框输入方式，求教！

Sub Macro1()
Sheets("Sheet1").Cells.Copy Sheets("Sheet2").Cells '将工作表sheet1的全部内容拷贝至sheet2
   b = Sheets("Sheet2").Range("a65536").End(xlUp).Row '判断工作表的最后一行
   For i = b To 2 Step -1
   s = 0
   For j = 1 To 10 '1—10列的有效数据区域循环
   If Sheets("Sheet1").Cells(i, j) = "123579" Then s = s + 1 'a为提取条件
   Next j
   If s = 0 Then Rows(i).Delete '删除不符合条件的行
   Next i
   End Sub

gdw831001

1. <div class="blockcode"><blockquote>Sub Macro1()
   
2.     Sheets("Sheet1").Cells.Copy Sheets("Sheet2").Cells '将工作表sheet1的全部内容拷贝至sheet2
   
3.     b = Sheets("Sheet2").Range("a65536").End(xlUp).Row '判断工作表的最后一行
   
4.     St = InputBox("输入查找值", , "")
   
5.     For i = b To 2 Step -1
   
6.         s = 0
   
7.         For j = 1 To 10 '1—10列的有效数据区域循环
   
8.             If Sheets("Sheet1").Cells(i, j) = St Then s = s + 1 'a为提取条件
   
9.         Next j
   
10.         If s = 0 Then Rows(i).Delete '删除不符合条件的行
    
11.     Next i
    
12. End Sub

复制代码