Question

不知道为什么这要打败我，但似乎比较容易。我想做的是输入一个字符串，即列A中的“游戏1”，复制整个行，并将该行粘贴到A1的sheet2中。

任何方向都会有所帮助。

Answer 1

我想我明白了。我在VBA方面的经验有限，但是那是差不多二十年前的事情了，条件逻辑对我来说已经变得更好了。这就是我目前似乎正在工作的东西……现在，onyl的事情是弄清楚要为“游戏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

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

1 个答案: