Excel中的VBA命令查找和刪除

Question

我試圖創建一個宏/ VBA使用查找工具中的某個單元格中的值。然後在不同的工作表中搜索該值，然後刪除整行。

例如

ABC | DEF 
--------- 

我想在表2中找到值「ABC」（從表1），並選擇整行刪除它。下次價值可能會有所不同。我怎樣才能做到這一點？

Answer 1

此函數將從Sheet1單元格A3中獲取該值，並在Sheet2上查找並刪除該行。

Private Sub findAndDelete() 

    Dim wordToSearch As String 
    Dim rowToDelete As Integer 

    'Get word to look for from cell A3 
    Sheets("Sheet1").Select 
    wordToSearch = Sheets("Sheet1").Range("A3").Value 

    'Find that word on Sheet2 and delete it 
    Sheets("Sheet2").Select 
    Cells.Find(What:=wordToSearch, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ 
     xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ 
     , SearchFormat:=False).Activate 
    rowToDelete = ActiveCell.Row 
    Rows(rowToDelete & ":" & rowToDelete).Select 
    Application.CutCopyMode = False 
    Selection.Delete Shift:=xlUp 
End Sub