Question

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

示例：Macro将搜索fixed＆＃34; TextA3＆＃34;从A列开始，如果找到，将从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

非常感谢！提前。

Answer 1

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

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

您可以尝试使用

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

我希望我能提供帮助，这并非完全错误，否则请纠正我：）

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

1 个答案: