空でないセルをExcelで特定の値に置き換える方法は？

Excelでは、を押すことで、選択範囲を特定の値にすばやく簡単に置き換えたり、入力したりできます。 Ctrl + Enter キーですが、空でないセルだけを、空白セルと値セルの両方を含む選択した範囲内の特定の値に置き換える方法を知っていますか。

検索と置換機能を使用して、空でないセルを特定の値に置き換えます

VBAコードを使用して、空でないセルを特定の値に置き換えます

検索と置換機能を使用して、空でないセルを特定の値に置き換えます

Excelでは、検索と置換機能を使用すると、空白でないセルをすべて検索し、必要に応じて指定した値に置き換えることができます。

1。 値セルのみを置き換えるデータ範囲を選択します。

2。 そして、 Ctrl + H を開く 検索および置換 ダイアログボックス、 検索および置換 ダイアログ 交換する タブ、タイプ * セクションに 見つける フィールドに入力し、必要な値を入力します と交換 テキストボックス、スクリーンショットを参照：

3。 次に、をクリックします すべて置換 ボタンをクリックし、置き換えるセルの数を示すダイアログがポップアップ表示されたら、ダイアログを閉じます。選択した範囲のすべての値が、指定したデータに置き換えられます。スクリーンショットを参照してください。

VBAコードを使用して、空でないセルを特定の値に置き換えます

次のVBAコードを使用すると、すべてのデータセルを必要な値に一度に置き換えることもできます。 このようにしてください：

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：空でないセルを特定の値に置き換えます

Sub ReplaceNumbers()
'Update 20141111
    Dim SRg As Range
    Dim Rg As Range
    Dim Str As Variant
    On Error Resume Next
    Set SRg = Application.Selection
    Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
    If Err <> 0 Then Exit Sub
    Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
    If Str = False Then Exit Sub
    For Each Rg In SRg
        If Rg <> "" Then Rg = Str
    Next
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、データを置き換える範囲を選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

4。 次に、をクリックします OK、次のプロンプトボックスに特定の値を入力します。スクリーンショットを参照してください。

5。 そして、 OK、選択した範囲のすべての値が一度に特定のデータに置き換えられました。