如果发现部分文本单元格优于VBA，则复制

Question

我很难写出那个VBA ......

附图应该有助于理解我需要做什么

问题：

a）如果在Sheet1 B列中找到文本“FAA”，则将同一行中的单元格C复制到Sheet2 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