1、找到开发工具，（图为2007office，可能不同版本名称不一样，但是都有这个VB工具！）
2、见上图，可以插入个形状图案，然后，点击图案并右键，然后进入到了编程界面。最后录入代码。
3、代码：Sub 椭圆2_Click()Dim i As LongFor i = 1 To Cells(Rows.Count, 4).End(xlUp).RowIf 潮贾篡绐Cells(i, 4) = "科员" ThenRows(i).DeleteEnd IfNextEnd Sub注意：一、’“”椭圆2“”这个是由于我选择的形状是椭圆，因此VB自动取名椭圆2。Sub 椭圆2_Click() 。这一串代码一般可以删除，末尾 end sub 也可以删除二、Cells(i, 4) 这个里边，i是代表行，4代表第四列（即D列）。三、"科员" 这个里边，要查找的值需要英文状态下输入“”符号。中间写的就是要查找的值，找到后，按照代码的意思，就会删除这个值所在行了。