複製如果文本單元的一部分發現的Excel VBA

Question

我有一個很難編寫VBA ...

附圖片應該幫助明白我需要做的

問題：

a）如果在Sheet列B被發現文本「FAA」，那麼在同一行中單元C拷貝到Sheet列A.

然後，

b）刪除Sheet1行B和C中的單元格。

Answer 1

With Worksheets("Sheet1") 

    For each cel in .Range(.Range("B1"),.Range("B1").End(xlDown)) 

     If cel.Value Like "*FAA*" Then 
      Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = cel.Offset(,1).Value 
      cel.Resize(1,2).ClearContents 

     End If 

    Next 

    'if you wish to remove the rows entirely use this code, if not comment out 
    .Range(.Range("B1"),.Range("A1").End(xlDown).Offset(,1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

End With