テリーはExcelワークシートに名前の膨大なリストを持っています。いくつかは単なる名前ですが、いくつかはそれらの後に括弧で囲まれた単語を持っています。残念ながら、括弧内の一部の単語には閉じ括弧がなく、Terryは手動で閉じ括弧を追加する必要があります。彼は、ワイルドカード検索と置換を使用してブラケットを追加できる方法があるかどうか疑問に思います。

簡単に言うと、ワイルドカードまたは通常の検索と置換を使用してこれを行うことはできません。ただし、数式を使用して、不足している角かっこを追加することはできます。以下は、使用できる数式の種類の一例です。

=IF(AND(NOT(ISERROR(SEARCH("[",A1))),NOT(RIGHT(A1,1)="]")),A1&"]",A1)

秘訣は、セル（この場合はA1）に左角かっこが含まれているかどうかを確認し、含まれている場合は右角かっこを確認することです。右角かっこが見つからない場合は、セルの内容に角かっこを追加します。

同じ公式テーマの別のバリエーションは次のとおりです。

=IF(ISERROR(FIND("[",A1)),A1,IF(ISERROR(FIND("]",A1)),A1&"]",A1))

多数のセルで角かっこが欠落していないか定期的にチェックする必要がある場合は、セルの範囲を調べ、必要に応じて右角かっこを追加するマクロを作成することをお勧めします。このようなマクロを作成する方法の例を次に示します。

Sub Close_Bracket()

Dim c As Range     Const csLBrk As String = "["

Const csRBrk As String = "]"



On Error Resume Next     For Each c In Selection.Cells         If InStr(1, c.Value, csLBrk) > 0 And _           InStr(1, c.Value, csRBrk) = 0 Then             c.Value = c.Value & csRBrk         End If     Next c End Sub

マクロを使用するには、影響を与えるセルの範囲を選択して実行します。セルはインプレースで検査され、必要に応じて変更されます。

注：

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

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

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

このヒント（126）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excel-Adding_a_Missing_Closing_Bracket [不足している閉じ括弧の追加]。