Como localizar e substituir números por subscrito no Excel?

No Excel, você pode usar a função Localizar e Substituir para substituir o número pelo formato sobrescrito, mas não funciona quando você deseja substituir pelo formato subscrito como mostrado na captura de tela abaixo. No entanto, posso apresentar alguns truques para você lidar rapidamente com essa questão no Excel.

Encontre e substitua todos os números com subscrito por VBA

Encontre e substitua números por subscritos em fórmulas químicas por Kutools para Excel

Encontre e substitua todos os números com subscrito por VBA

No Excel, exceto para código de macro, nenhum método pode ajudá-lo a localizar e substituir texto com formato subscrito.

1. Pressione Alt + F11 chave para exibir Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código abaixo no script em branco.

VBA: encontre e substitua todos os números pelo formato subscrito

Sub SubscriptNumbers()
'UpdatebyExtendoffice20160705
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xTxt = xCell.Value
        For I = 1 To Len(xTxt)
            xChar = Mid(xTxt, I, 1)
            If xChar >= "0" And xChar <= "9" Then
                xCell.Characters(I, 1).Font.Subscript = True
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

3. Pressione F5 chave, um Kutools for Excel caixa de diálogo aparece para lembrá-lo de selecionar uma faixa de trabalho. Veja a imagem:

4. Após selecionar, clique em OK, e todos os números na seleção foram convertidos para serem subscritos.

Encontre e substitua números por subscritos em fórmulas químicas por Kutools para Excel

Além do código de macro, na verdade, você pode aplicar um utilitário fácil chamado Números subscritos em fórmulas químicas para converter rapidamente todos os números normais em fórmulas químicas para o formato subscrito se você tiver instalado Kutools for Excel.

Depois de instalação grátis Kutools para Excel, faça o seguinte:

Selecione as células que deseja formatar os números como subscrito e clique Kutools > Texto > Números subscritos em fórmulas químicas. Veja a imagem:

E uma caixa de diálogo é exibida para lembrá-lo de quantas células foram convertidas e os números nas fórmulas químicas selecionadas foram formatados como formato subscrito.

  Converter número em subscrito na fórmula química

---

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
• Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
• Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
• Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
• Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
• Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
• Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
• Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
• Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

Leia mais... Download grátis... Compra... 

---

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

Leia mais... Download grátis... Compra...