在列中找到短語並將數據的行復制到新工作表

Question

我一直在試圖在任何地方都找到答案，但還沒有遇到一個簡單的解決方案。

我有數據的列AA表：

ID，部門，DEPTCODE，銷售，產品，起始日期，結束日期

我也嘗試先從宏觀的基礎，但它似乎不工作：

Sheets("TEST").Select 
Rows("1:1").Select 
Selection.AutoFilter 
ActiveSheet.Range("$A$1:$AO$10").AutoFilter Field:=4, Criteria1:= _ 
    "=SAL" 
Cells.Select 
Selection.Copy 
Sheets("Sheet1").Select 
Range("A1").Select 
ActiveSheet.Paste 

我想搜索的列「部門」查找短語「薩爾」這可能是一個較長的字符串的一部分，然後複製該行到一個不同的表。

Answer 1

嘗試通過"*SAL*"

Answer 2

要更換"=SAL"如果你有一個標題行（不知道你的數據集的樣子），那麼你可以使用下面的一切標題下面複製：

ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Copy 

將"=SAL"更改爲"=*SAL*"將更改過濾器以包含任何包含「SAL」的內容。