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 do 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 do 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
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!