如果找到部分文本单元格，则复制 excel VBA

Question

我很难写那个 VBA...

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

问题：

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