Excel VBA代码，用于在一个工作簿中选择包含特定文本字符串的单元格，然后将这些单元格复制并粘贴...

问 题

我在Excel电子表格中的单列中包含大量数据。我一直在尝试一种自动化方法来在一个工作簿中从该列中选择某些数据，并将其粘贴到新工作簿的列中。

例如，我在列中有一个名称列表。我想选择包含文本名字：的任何单元格，然后将这些单元格复制并粘贴到不同工作簿的列中。

我可以这样做手动使用Excel中的查找所有工具，使用查找内容选择单元格，然后使用Ctrl + A选择所有找到的项目，然后关闭查找所有工具，然后使用Ctrl + C复制所有的单元格，移动到下一个工作簿，然后使用Ctrl + V粘贴这些单元格。但是，我需要这样做很多次，不幸的是，宏记录器没有记录在查找全部工具中执行的任何查询/进程。

我假设我需要一些VBA代码，但是无法在网页/论坛上找到适合的东西。

解决方案

This is just a sample to get you started:

Sub Luxation() Dim K As Long, r As Range, v As Variant K = 1 Dim w1 As Workbook, w2 As Workbook Set w1 = ThisWorkbook Set w2 = Workbooks.Add w1.Activate For Each r In Intersect(Range('A:A'), ActiveSheet.UsedRange) v = r.Value If InStr(v, 'First name') > 0 Then r.Copy w2.Sheets('Sheet1').Cells(K, 1) K = K + 1 End If Next rEnd Sub

The code opens a fresh workbook, goes back to the original workbook, runs down column A , and then copies the relevant cells to the fresh workbook.

代码打开一个新的工作簿，回到原始工作簿，向下运行列 A ，然后将相关单元格复制到新的工作簿。

EDIT#1

Here is the new macro:

Sub Luxation2()    Dim K As Long, r As Range, v As Variant    K = 1    Dim w1 As Worksheet, w2 As Worksheet    Set w1 = Sheets('raw data')    Set w2 = Sheets('data manipulation')    w1.Activate    For Each r In Intersect(Range('A:A'), ActiveSheet.UsedRange)        v = r.Value        If InStr(v, 'First name') > 0 Then            r.Copy w2.Cells(K, 1)            K = K + 1        End If    Next rEnd Sub

本文地址：IT屋 » Excel VBA代码，用于在一个工作簿中选择包含特定文本字符串的单元格，然后将这些单元格复制并粘贴到新的工作簿中