Извлечь КАПИТАЛИЗОВАННЫЕ Слова или слова с цифрами в нем (Excel)

Question

У меня есть база данных со статьями, и я хочу извлечь заглавные слова и слова с номером в них, чтобы создать список. Вот пример:

«Я, Duroux-Richard et al., Таким образом, объясню, как циркулирующие микро-РНК, и особенно miRNA-125b, являются потенциально ценными биомаркерами при РА в« Циркуляции miRNA-125b является потенциальным биомаркером, предсказывающим ответ на ритуксимаб при ревматоидном артрите ». Циркулирующие уровни miRNA-125 могут предсказать реакцию на ритуксимаб у пациентов с РА, и поэтому их интерес должен быть переоценен другими группами для использования в повседневной клинической практике ».

Я хочу, чтобы на выходе были все слова, которые я выделил в тексте.

Answer 1

Вы можете использовать регулярное выражение \w*[A-Z-0-9]+\w* чтобы выделить свой текст ... Посмотрите здесь:

Другая более сложная альтернатива - не считать первые заглавные буквы, а подсчитывать слова только с заглавными буквами: (\b[a-z0-9]\w*[A-Z-0-9]+\w*)|(\b[A-Z]{2,}\b) , здесь:

Answer 2

Этот подход предполагает, что слова как текст разделены "пробелами". Поместите данные в какую-то ячейку, выберите ячейку и запустите этот макрос:

Sub Xtractor()
    Dim t As String, i As Long, j As Long
    Dim CH As String
    t = ActiveCell.Text
    j = 1
    If InStr(t, " ") = 0 Then Exit Sub

    ary = Split(t, " ")
    For Each a In ary
        For i = 1 To Len(a)
            CH = Mid(a, i, 1)
            If CH Like "[0-9A-Z]" Then
                ActiveCell.Offset(j, 1).Value = a
                j = j + 1
                Exit For
            End If
        Next i
    Next a
End Sub

Это создаст список в столбце справа:

Макросы очень просты в установке и использовании:

1. ALT-F11 открывает окно VBE
2. ALT-I ALT-M открывает новый модуль
3. вставьте материал и закройте окно VBE

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

1. откройте окно VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы использовать макрос из Excel:

1. ALT-F8
2. Выберите макрос
3. Нажмите RUN

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Макросы должны быть включены, чтобы это работало!