У меня есть длинный список записей в листе данных Excel, как:

1235. "email address",

Как я могу удалить жирным шрифтом то есть 1235. " и ", из этого.

Начальные цифры идут от 279 до 5000.

2 ответа2

1

Это не так сложно, используя правильные функции. MID принимает часть строки, начинающую указанную начальную позицию для указанного количества символов. НАЙТИ находит символ в тексте и возвращает позицию. CHAR(34) используется для поиска «знака, потому что в противном случае вам пришлось бы многим». ДЛИНА используется, чтобы найти длину строки.

=MID(B5,FIND(CHAR(34),B5)+1,LENGTH(B5)-(FIND(CHAR(34),B5)))

Таким образом, я извлекаю фрагмент текста, начинающийся после знака "знак длины", до конца строки.

0

Я на самом деле использую макрос для удаления ненужных символов из Excel.

(Если вы знаете, как создать макрос, перейдите к коду)

Чтобы создать макрос, откройте рабочую книгу и нажмите Alt+F11. Это откроет Visual Basic. Слева вверху будет маленькая кнопка, которая выглядит следующим образом: Нажмите стрелку вниз и выберите "Модуль"

Скопируйте следующий код и вставьте его в пустое окно модуля:

Sub RemoveTags()
    Dim r As Range

    Selection.NumberFormat = "General"  'set cells to text numberformat

    With CreateObject("vbscript.regexp")
      .Pattern = "\<.*?\>"
      .Global = True


    For Each r In Selection
        r.Value = Replace(.Replace(r.Value, ""), "&nbsp;", " ")
        r.Value2 = Replace(.Replace(r.Value2, ""), "&quot;", "")
      Next r

    End With
End Sub

Там, где у меня есть " &nbsp; " и " &quot; ", замените их символами, которые вы хотите заменить. В кавычках после каждого символа введите то, на что вы хотите их заменить. В моем примере первая строка помещается в пробел, вторая строка заменяет символы ничем (что, я думаю, вам и нужно).

Вы можете скопировать / вставить разделы из "Для каждого R In Selection" в "Next r" и ввести дополнительные символы для замены, если это необходимо.

Сохраните и закройте Visual Basic.

Для запуска кода вам нужно включить режим разработчика. Вот ссылка на краткий обзор того, как это сделать. Выберите ячейки, в которых вы хотите заменить символы, щелкните вкладку разработчика и нажмите кнопку "Макросы". Выберите макрос "Удалить теги" и нажмите "Выполнить".

Я знаю, что VBA может пугать поначалу. Но поверьте мне, этот код помог мне очистить форматирование XML от тысяч строк данных. Надеюсь, поможет!

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .