Extrair palavras ou palavras CAPITALIZADAS com números (Excel)

Question

Eu tenho um banco de dados com artigos e quero extrair palavras e palavras em maiúsculas com números para criar uma lista. Aqui está um exemplo:

"Eu, Duroux-Richard et al., explicaremos como o micro-RNA circulante, e notavelmente miRNA-125b , são potenciais biomarcadores em RA em “O miRNA-125b circulante é um biomarcador potencial que prevê resposta ao rituximabe na artrite reumatoide.” Níveis circulantes de miRNA-125 podem prever a resposta ao rituximabe em pacientes com AR e seu interesse deve, portanto, ser reavaliado por outras equipes para ser usado na prática clínica diária. "

Eu quero que a saída seja todas as palavras em negrito no texto.

    

Answer 1

Você pode usar expressão regular \w*[A-Z-0-9]+\w* para selecionar seu texto ... Dê uma olhada aqui :

Outraalternativamaiscomplexanãocontaasprimeirasletrasmaiúsculas,masaspalavrascomapenasletrasmaiúsculasserãoasseguintes:(\b[a-z0-9]\w*[A-Z-0-9]+\w*)|(\b[A-Z]{2,}\b), aqui :

    

Answer 2

Essa abordagem pressupõe que palavras como o texto é separado por "espaços". Coloque os dados em alguma célula, selecione a célula e execute esta macro:

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

Ele criará a lista na coluna à direita:

Asmacrossãomuitofáceisdeinstalareusar:

1. ALT-F11exibeajaneladoVBE
2. ALT-IALT-Mabreumnovomódulo
3. coleomaterialefecheajaneladoVBE

Sevocêsalvarapastadetrabalho,amacroserásalvacomela.SevocêestiverusandoumaversãodoExcelposteriora2003,deverásalvaroarquivocomo.xlsmemvezde.xlsx

Pararemoveramacro:

1. abrirajaneladoVBEcomoacima
2. limpeocódigo
3. fecheajaneladoVBE

ParausaramacrodoExcel:

1. ALT-F8
2. Selecioneamacro
3. ToqueemEXECUTAR

Parasabermaissobremacrosemgeral,consulte:

link

e

link

As macros devem estar ativadas para que isso funcione!