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）。
最高のオフィス生産性向上ツール
| 🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
| 人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
| スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
| 詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
| 列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
| 注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
| 上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...） | 50+ チャート 種類 (ガントチャート、...） | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...） | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...） | 12 変換 ツール (数字から言葉へ, 通貨の換算、...） | 7 マージ＆スプリット ツール (高度な結合行, 分割セル、...） | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
