У меня есть лист с более чем 1000 строк. В колонке AI есть текст, какКак проверить, имеет ли значение определенный текст в нем
:IO.Tgr37.Tank37.TT
В листе «innstiilinger» в колонке F, у меня есть куча ключевых слов для поиска, как Tgr37 на row7 и Tgr10 на row8
В колонке GI есть
Tgr 120, Tgr 600.......
Если в тексте есть Tgr37 или Tgr10, я хотел бы добавить префикс к тексту. Если текст имеет Tgr120 или Tgr600 в нем я хотел бы добавить еще один префикс к тексту ..
Я попробовал этот код:
Dim sCellVal As String
sCellVal = Range("A" & ActiveCell.Row).Value
Dim FindString As String
Dim Rng As Range
FindString = sCellVal
If Trim(FindString) <> "" Then
With Sheets("Innstillinger").Range("F:F") 'searches all of column F
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
tag_opc.Value = Sheets("Innstillinger").Range("F6") & Range("A" & ActiveCell.Row).Value & ".Value" 'value found
Else
MsgBox "Nothing found" 'value not found
End If
End With
End If
, но не работает, когда я положил ключевое слово в колонке А и текст в столбце F в листе «innstillinger» работает.
Извините за мой плохой английский, но я надеюсь, вы понимаете мою проблему ... Excel 2013
Текст, на который я ссылаюсь, это теги opc из программы plc. Я собираюсь импортировать теги в программное обеспечение для архиватора, но теги не заполнены. Мне нужно добавить дополнительный текст к тегам, и какой текст мне нужно добавить, зависит от того, к чему принадлежит «Tgrxx». Так что мне нужен список разных Tgr, которые нуждаются в «text1», добавленном в opc-тег в coloum F (это около 10 различных Tgr), а Tgr, которые нужно добавить «text2», перечислены в coloum G .... и так далее. , –