Excel макрос для очистки данных для удаления

Question

Мне было интересно, может ли кто-нибудь помочь мне с предложениями по очистке данных в листе распространения Excel.

У меня очень длинный список, который мне нужно пройти. В настоящее время я копирую список данных (чтобы получить имена кучу интересующих препаратов) в Excel. Но проблема в том, что каждая строка данных имеет постороннюю информацию, которая мне не нужна.

Например:

Fluoride Updated 7/10/13 
Acetaminophen Updated 8/10/13 

Я хотел бы создать макрос, который сохраняет только первый текст (в приведенном выше примере будучи фторид и ацетаминофен) и удалить все остальное.

Любые предложения? Я пробовал метод «Найти» и «Заменить все» до сих пор, но, разумеется, поскольку даты отличаются для каждого лекарства, это не реально.

Любая помощь будет оценена по достоинству!

Спасибо!

Answer 1

Поскольку вы, кажется, в по крайней мере, немного гибкий подход к использованию макроса, возможно, использует формулы для большей гибкости для «угловых случаев». например:

=LEFT(A1,FIND(" ",A1)) 

в случае (вряд ли?), где все названия лекарств не содержат пробелов, или, возможно, более перспективным:

=LEFT(A1,FIND("Updated",A1)-2) 

, где все записи включают в себя «Обновление».

Сортировка результатов должна указывать, где синтаксический анализ не подходит и позволяет выполнить дальнейшую корректировку.

Answer 2

Самый простой способ будет создать макрос, который делает текст столбцам с пробелом в качестве разделителя

Это предполагает, что данные в первом столбце Лист1

Dim shtWorking As Worksheet 
Set shtWorking = Worksheets("Sheet1") 
shtWorking.Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ 
    TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=False, Semicolon _ 
    :=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(_ 
    Array(1, 2), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True