カレンには、セルの先頭にチルダ文字（〜）が付いたセルが多数あります。彼女は、チルダを別の文字（@記号など）に変更したいと考えていますが、チルダがセルの先頭にある場合に限ります。彼女は、検索と置換を使用してこのタスクを実行する方法がわかりません。

テキスト内のすべてのチルダを置換する場合は、Excelの検索と置換が適しています。その場合は、~~を検索して（これは2つのチルダが連続していることに注意してください）、@に置き換えます。ただし、最初の文字位置に表示されているチルダだけを置き換えたいので、検索と置換ではそれは行われません。問題に取り組むには2つの方法があります。

最初の方法は、数式を使用してチルダを削除することです。このような式には多くのバリエーションがあり、その一例を次に示します。

=IF(LEFT(A1,1)="~","@" & MID(A1,2,LEN(A1)),A1)

数式を必要な数のセルにコピーしてから、結果をコピーし、[形式を選択して貼り付け]を使用して値を元の列に貼り付けることができます。

もう1つのオプションは、マクロを使用して置換を行うことです。以下は、トリックを実行するための短いマクロの良い例です。

Sub ReplaceTilde()

Dim c As Range     For Each c In Selection         If Left(c, 1) = "~" Then             c.Value = "@" & Right(c, Len(c) - 1)

End If     Next End Sub

マクロを使用するには、変更するセルを選択して実行するだけです。選択した各セルが評価され、必要に応じて変更されます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（13419）は、Microsoft Excel 2007、2010、2013、および2016に適用されます。