Excelで文字をすばやく見つけて上付き文字に置き換えるにはどうすればよいですか？

Excelでは、検索と置換機能を適用することで特定の値を別の値にすばやく置き換えることができますが、特定のテキスト文字列で特定の文字を検索し、それを上付き文字形式で置き換える（find YL3など）という問題が発生したことがあります。次に、以下のスクリーンショットに示すように、YL3に置き換えます。 もちろん、XNUMXつずつ見つけて交換することもできますが、この方法では時間がかかりすぎます。 Excelですぐに上付き文字に置き換えることができるトリックがあれば？ この記事に従ってください、あなたは答えを得るでしょう。

検索と置換機能による上付き文字による検索と置換

VBAで上付き文字を見つけて置き換えます

検索と置換機能による上付き文字による検索と置換

実際には、検索と置換を使用してテキストを検索し、上付き文字形式に置き換えることができます。

1.作業を検索して置き換える範囲を選択し、を押します Ctrl + H を開く 検索および置換 ダイアログ。

2。 の中に 検索および置換 ダイアログ、クリック 交換する タブをクリックし、検索するテキストをに入力します 見つける テキストボックス。 スクリーンショットを参照してください：

3.次に、 と交換 テキストボックスに、置き換えたいテキストを入力し、注意して、長押しします 他の キーを押してから 0179 のキー ナンバーボード 上付き文字番号3を入力します。スクリーンショットを参照してください。

4。 クリック すべて置換。 そして、ダイアログがポップアップして、何回の置換が行われたかを通知します。 スクリーンショットを参照してください：

ヒント： ただし、この方法では、2を押して番号0178を上付き文字にし、3を押して0179を上付き文字にすることしかできません。

VBAで上付き文字を見つけて置き換えます

検索と置換機能を使用すると、番号を上付き文字にのみ置き換えることができます。 以下のスクリーンショットのように文字を上付き文字に置き換えたい場合は、VBAコードを適用して解決できます。

1。 押す Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、VBAコードの下をスクリプトに貼り付けます。

VBA：上付き文字形式で検索して置換

Sub DoConvert()
'UpdatebyExtendoffice20160705
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    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
    For Each xCell In xRg
        If xCell.Value = "YL3" Then
            xCell.Characters(1, 1).Font.Superscript = True
        End If
    Next
End Sub

3。 押す F5 キーを押してコードを実行すると、範囲を選択するように促すダイアログが表示されます。 スクリーンショットを参照してください：

4。 クリック OK、特定の文字列の特定の文字は、選択範囲で上付き文字形式に変換されています。 スクリーンショットを参照してください：

先端：コードでは、「YL3」は検索する文字列であり、 （1、1） 文字列の最初の1文字を変換することを示します。最初の1文字を変換する場合は、（2、1）に変更できます。文字列の2番目の文字から1文字を変換する場合は、（（XNUMX、XNUMX）に変更できます。 XNUMX、XNUMX）。