福建省省委办公厅主任:宏命令谁熟,请帮助我!

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/01 03:04:44
先谢了,
EXCEL里面的宏,我想把工作表1里的一个单元格输入一个数字(如:输入123456),在工作表二中查找的这个数字,如有相同的就删除这个相同单元格,不知道怎么编了。

这是一个例子,你照这个例子改一下吧!
这个例子是在sheet1的A1单元输入了数字
在sheet2的A列存放了数据,smaple过程是从sheet2的A列中搜索出与sheet1的A1单元内容相同的行,并删除整行

Sub sample()
Set frow = Sheet2.Columns("A:A").Find(what:=Sheet1.Range("A1").Value)
If IsObject(frow) Then
Sheet2.Rows(frow.Row & ":" & frow.Row).Delete Shift:=xlUp
End If
Set frow = Nothing
End Sub