2013-09-12 3 views
-1

У меня короткий вопрос о том, как манипулировать текст в несколько ячеек в Excel 2010.Удаление Одинаковые строки текста из Excel

Моя ситуация выглядит следующим образом: у меня есть около 12 клеток, расположенных в колонне. Длина строки в каждой ячейке значительно различается, одна ячейка может иметь «abcccd», а другая - «abcccdefghij». Существует строка текста, которая является точной в каждой из этих ячеек, и я пытался удалить эту часть строки из всех ячеек. Например, я могу удалить 'ccc' из всех ячеек. Таким образом, я остался бы только с началами каждой ячейки, которые являются уникальными. Есть ли быстрый способ сказать Excel удалить «все строки формы abcdefgh из ячеек A1 ... A10», например?

ОБНОВЛЕНИЕ: В дополнение к ответу ниже, как упоминалось в pnuts, было бы очень просто использовать встроенную функцию поиска и замены. Например. Найти 'ccc' заменить на ''.

+0

Есть ли что: 'abcdefgh' и заменить: ничего не работает? – pnuts

ответ

2

Данные испытаний в столбце A, результат в столбце B. Удаление слова «упало» из каждой записи.

enter image description here

Поместите этот код в B1 и скопировать перетащить вниз.

=IF(ISERROR(FIND("fell",A1)),A1,SUBSTITUTE(A1,"fell","")) 

**

ИЛИ ...

**

Если вы хотите использовать VBA попробуйте следующий код (обратите внимание, что у меня нет какой-либо проверки ошибок, и я жестко закодированное слово «упало»)

Sub LoopRange() 
    Dim rCell As Range 
    Dim rRng As Range 
    Set rRng = Sheet1.Range("A1:A10") 

    For Each rCell In rRng.Cells 
    Debug.Print rCell.Address, rCell.Value 
    rCell.Offset(0, 1).Value = Application.WorksheetFunction.Substitute(rCell.Value, "fell", "") 
    Next rCell 
End Sub 
+0

Отлично, это именно то, что я искал. Благодаря! – 114

Смежные вопросы