search关键短语的工作簿并将其复制到新的工作簿中

我需要在工作簿中search几个关键短语（总是在标题行中），当find该短语时，将整个列复制到一个新的工作簿中，然后继续查找下一个短语。 当我录制我的macros时，这是它给了我的东西，但关键短语可能并不总是在B列，所以这可能会很快发生！ 我的项目的范围是find这些关键字，直到最后一行select列的数据，并复制到一个单独的工作簿。 我将合并6 – 7个工作簿。

Cells.Select Selection.Find(What:="Emp Name", After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Columns("B:B").Select Selection.Copy 

Answer 1

那么你不要说为什么你需要它在C＃中，但VBA的方式来select“当前”列是：

 ActiveCell.EntireColumn.Select 

这将select包含关键字的任何列。

VBA创build一个新的工作簿并粘贴在列中

 Workbooks.Add ActiveSheet.Paste