VBA Excel Найти текст в столбце A, скопировать всю строку - PullRequest
Новая
       35

VBA Excel Найти текст в столбце A, скопировать всю строку

0 голосов
/ 16 октября 2018

Не уверен, почему это побеждает меня, но, казалось бы, это относительно легко.Я пытаюсь сделать строку, например «Игра 1» в столбце А, скопировать всю строку и вставить эту строку в sheet2 в A1.

Любое направление будет полезным.

1 Ответ

0 голосов
/ 16 октября 2018

Я думаю, что понял.У меня ограниченный опыт работы с 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
...