查找某些文本，复制并粘贴到新工作表中答案

【问题标题】：Find certain text, copy and paste into new sheet查找某些文本，复制并粘贴到新工作表中
【发布时间】：2018-02-22 02:44:08
【问题描述】：

我在这里有这段代码，它通过我的工作表列 C 并找到其中包含“Geoff”的所有单元格并将其复制并粘贴到活动工作表中的“Geoff”工作表中。我需要它完成的是复制整行并将其粘贴到“Geoff”表中。

Dim K As Long, r As Range, v As Variant
K = 1
Dim w1 As Worksheet, w2 As Worksheet
Set w1 = Sheets("Active")
Set w2 = Sheets("Geoff")
w1.Activate
For Each r In Intersect(Range("C:C"), ActiveSheet.UsedRange)
    v = r.Value
    If InStr(v, "Geoff") > 0 Then
        r.Copy w2.Cells(K, 1)
        K = K + 1
    End If
Next r

它只从 C 列复制 Geoff 我需要它来复制整行。有什么帮助或想法吗？

【问题讨论】：

标签： vba excel

【解决方案1】：

r.EntireRow.Copy w2.Cells(K, 1)

应该有效

或者，如果您想更有选择性：

r.EntireRow.Cells(1).Resize(1, numColsToCopy).Copy w2.Cells(K, 1)

【讨论】：

非常感谢。有用。现在我只是想弄清楚如何将其粘贴到 A 列中的第一个空单元格中。并使其在将其粘贴到“Geoff”表后删除从“Active”表中复制的内容。