Question

我需要在工作簿中搜索几个关键短语（总是在标题行中），当找到短语时将整个列复制到新工作簿，然后继续查找下一个短语。当我录制我的宏时，这就是它给了我的东西，但是关键短语可能并不总是在B列中，所以这可能很快就会出错！我的项目范围是找到这些关键字，选择列到最后一行包含数据，然后复制到单独的工作簿中。我将合并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方式选择“当前”列是：

ActiveCell.EntireColumn.Select

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

用于创建新工作簿并粘贴到列中的VBA只是

Workbooks.Add
ActiveSheet.Paste

搜索工作簿中的关键短语并将列复制到新工作簿中

1 个答案: