VBA Excel在A列中查找文本，复制整行答案

【问题标题】：VBA Excel Find Text in Column A, copy entire rowVBA Excel在A列中查找文本，复制整行
【发布时间】：2018-10-16 16:28:43
【问题描述】：

不知道为什么这会打败我，但似乎相对容易。我要做的是在 A 列中找到一个字符串，即“游戏 1”，复制整行，然后将该行粘贴到 A1 的 sheet2 中。

任何方向都会有所帮助。

【问题讨论】：

查找range.find和range.entirerow.copy
您是否已经尝试过一些 VBA？当您的问题包含您现有的代码时，即使它不工作，您获得回复的机会也会大大增加。
在google中输入“excel find text in range”和“excel copy whole row”，你会发现很多可用的代码sn-ps
我已经在 VBA 中尝试了几个小时。我得到的最接近的是在单元格中查找文本并复制该单个单元格，但是从找到的字符串复制整行的语法让我陷入了循环。
@Marcucciboy2 为您提供了执行此操作的代码行

标签： excel vba string find row

【解决方案1】：

我想我明白了。我在 VBA 方面的经验有限，但那是差不多二十年前的事了，条件逻辑已经让我变得更好了。这就是我目前得到的似乎正在工作的东西......现在唯一的事情是想办法将它循环用于“游戏 2”、“游戏 3”等，如果它们甚至存在的话。谢谢大家的帮助...

 Sub FindText()

' FindText Macro
' find "Game 1" "Game 2" etc

' Keyboard Shortcut: Ctrl+f

Sheets("Input").Select
Columns("A").Select
On Error Resume Next
Selection.Find(What:="Game 1", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate
If Err.number = 91 Then
    MsgBox "There is No Game 1 Loser."
    End
End If

Dim intRow As Integer
intRow = ActiveCell.Row

Rows(intRow & ":" & intRow).Copy

Sheets("Sheet1").Select
Range("A2").Select
ActiveSheet.Paste

Call format
End Sub

【讨论】：