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

【问题标题】：Search workbook for key phrases and copy column into new workbook在工作簿中搜索关键短语并将列复制到新工作簿中
【发布时间】：2013-12-18 14:52:55
【问题描述】：

我需要在工作簿中搜索几个关键短语（总是在标题行中），找到短语后，将整列复制到新工作簿，然后继续查找下一个短语。当我录制宏时，这是它给我的，但关键短语可能并不总是在 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

【问题讨论】：

标签： excel vba excel-interop

【解决方案1】：

你没有说为什么在 C# 中需要它，但是选择“当前”列的 VBA 方法是：

ActiveCell.EntireColumn.Select

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

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

Workbooks.Add
ActiveSheet.Paste

【讨论】：

抱歉，我需要找到关键字，突出显示该列，然后复制到一个新的工作簿中。
好吧，您在问题中提到了专栏 - 您需要适当地修改您的问题吗？
不，它应该是列...只是我的一个不幸。