Excel VBA Найти и заменить текст - PullRequest
Новая
       70

Excel VBA Найти и заменить текст

0 голосов
/ 07 июня 2019

Я довольно новичок в VBA, и у меня есть файл, который приходит ежедневно с информацией о заказе.Поставщик отправляет коды шрифтов, которые я не хочу включать.Я пытаюсь написать VBA, который найдет и удалит коды шрифтов:

. Это происходит так: 

PERSONALIZATION:
J#616
BTS#P47
Tim#P46
Tailored Night*#none
Macy#P46 Frank#P46

Я бы хотел, чтобы результат выглядел так: 

PERSONALIZATION:
J
BTS
Tim
Tailored Night
Macy Frank

Это код, который я использую: 

Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("#616", "#P46", "#P47", "#none")
rplcList = Array("", "", "", "")


  For x = LBound(fndList) To UBound(fndList)
    For Each sht In ActiveWorkbook.Worksheets
        sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
      Next sht

  Next x

Я не получаю ошибок из этого кода, но в текст не вносятся изменения

...