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

Localizar e substituir todos os números por subscrito usando VBA
Localizar e substituir números por subscrito em fórmulas químicas com Kutools para Excel

Localizar e substituir todos os números por subscrito usando VBA
No Excel, exceto pelo código de macro, não há nenhum método que possa ajudá-lo a localizar e substituir texto com o formato subscrito.
1. Pressione Alt + F11 para exibir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código abaixo no script em branco.
VBA: Localizar e substituir todos os números com 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 tecla, uma Kutools para Excel caixa de diálogo aparece para lembrá-lo de selecionar um intervalo de trabalho. Veja a captura de tela:
4. Após a seleção, clique OK, e todos os números na seleção terão sido convertidos para subscrito.
Localizar e substituir números por subscrito em fórmulas químicas com Kutools para Excel
Além do código de macro, na verdade, você pode aplicar uma ferramenta fácil chamada Subscrito de Números 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 o Kutools para Excel.
Após instalar gratuitamente o Kutools para Excel, faça o seguinte:
Selecione as células nas quais você deseja formatar os números como subscrito, clique Kutools > Texto > Subscrito de Números em Fórmulas Químicas. Veja a captura de tela:
E uma caixa de diálogo aparece para informar quantas células foram convertidas, e os números nas fórmulas químicas selecionadas foram formatados como subscrito.
Converter número para subscrito em fórmula química
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!