Excel VBA поиск частичной строки в столбце, а затем переименовать соответствующую ячейку в другой столбец - PullRequest
Новая
       48

Excel VBA поиск частичной строки в столбце, а затем переименовать соответствующую ячейку в другой столбец

0 голосов
/ 01 мая 2020

Я пытаюсь написать код VBA, чтобы найти частичный текст в столбце (скажем, P), и когда он находит его (скажем, строка 70), чтобы переименовать соответствующую ячейку в столбце G. У меня есть тысячи строк, которые Мне нужно будет пересматривать каждый месяц и пересекать на основе комментариев пользователей. Мне нравится избегать создания вспомогательной колонки. Ниже приведен код, который по какой-то причине не зацикливается 

Sub test()

Dim FndStr As Range
Dim findText As String
Dim replaceText As String

    findText = "fee"
    replaceText = "Travel fee"
    LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
On Error Resume Next

With ActiveSheet.Range("P1:P" & LastRow)
    Set FndStr = .Find(what:=findText, LookIn:=xlValues, lookat:=xlPart, MatchCase:=False)


    If Not FndStr Is Nothing Then
        Do

        rownumber = FndStr.Row
        .Cells(rownumber, -8).Value = replaceText

        Set FndStr = .FindNext(FndStr)

        Loop While FndStr Is Nothing
    End If
End With

End Sub

Можете ли вы сообщить, что мне не хватает или это более элегантный способ сделать это. спасибо

...