Excel宏搜索A列中的文本并将相邻单元格从B列复制到另一个工作簿答案

【问题标题】：Excel Macro to search Text in column A and copy adjacent cell from column B to another workbookExcel宏搜索A列中的文本并将相邻单元格从B列复制到另一个工作簿
【发布时间】：2014-09-13 08:43:04
【问题描述】：

我是 VBA 和 excel 宏的新手，我想创建一个宏来搜索 Column 中的文本，如果找到，会将相应的值从 B 列复制到另一个工作簿。

示例：宏将从 A 列中搜索固定的“TextA3”，如果找到，将从 B3 中复制值（在下面的示例中为 TextB3）并粘贴到另一个工作簿。

TextA1  TextB1 
TextA2  TextB2 
TextA3  TextB3 
TextA4  TextB4 
TextA5  TextB5
TextA6  TextB6 
TextA7  TextB7

尝试搜索此网站，但无法弄清楚如何复制相邻单元格。

我正在使用以下代码：

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, "Ticket No. ") > 0 Then
        r.Copy w2.Cells(K, 1)
        K = K + 1
    End If
Next r
End Sub

非常感谢！提前。

【问题讨论】：

我发布的链接显示了如何复制整行。您可以轻松修改它以复制下一个单元格中的值。
嗨，已经检查过帖子但无法修改它以搜索字符串，假设我的搜索以 A5 结束，那么我需要将 B5 复制到另一张纸上。你能帮忙吗？
您能否在修改后使用您正在使用的确切代码更新您的问题？不要只是从那里粘贴确切的代码：P
@siddharth-rout 此帖子与您列为重复的帖子不同。他在问如何将相邻单元格从正在评估的单元格复制到不同的工作表目标，而不是如何复制活动行。有区别。
@RonRosenfeld 我没有发布任何代码。代码由巴厘岛发布。我认为这里的关键是如何复制相邻的单元格。我已经准备好了解决方案，但我们不应该在 cmets 中发布答案。

标签： vba excel

【解决方案1】：

我自己是 Excel-VBA 的新手，但我想既然还没有答案，我会尝试回答。

我不完全确定我是否完全理解您的问题。我的理解是你想复制你选择的单元格旁边的一个单元格。

你可以试试

w2.cells(K, 1).offset(Column, Row)

希望能帮上忙，也不是全错，否则请指正:)

【讨论】：