Como localizar e substituir números por subscrito 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.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
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.

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!
