Use a formula to add any missing brackets. The following is just
one example of the type of formula you can use:
=IF(AND(NOT(ISERROR(SEARCH("[",A1))),NOT(RIGHT(A1,1)="]")),A1&"]",A1)
The trick is to check to see if the cell (A1 in this case) has a
left bracket in it and, if it does, check for the right bracket. If the right
bracket isn't found, then you append one to the contents of the cell. Here's
another variation on the same formulaic theme:
=IF(ISERROR(FIND("[",A1)),A1,IF(ISERROR(FIND("]",A1)),A1&"]",A1))
If you have to check large numbers of cells for missing brackets
on a regular basis, you may want to create a macro that will examine a range of
cells and add a right bracket if one is needed. Here's an example of how such a
macro could be formulated:
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
To use the macro, simply select the range of cells you want to affect,
and then run it. The cells are examined in-place and modified, if needed.
