マクロでこれを実行しようとしている場合は、VBA置換ステートメントを試すこともできます。代替機能よりもはるかに優れています。
次のマクロを使用して、原因を解決できます。
Sub ChangeTerms()
Dim rows As Integer
Dim cellvalue As String
Dim Newcellvalue As String
rows = ActiveSheet.UsedRange.rows.Count
For i = 1 To rows
cellvalue = ActiveSheet.Cells(i, 1).Value
Newcellvalue = Replace(cellvalue, " Inc.", "")
Newcellvalue = Replace(Newcellvalue, " Inc,", "")
Newcellvalue = Replace(Newcellvalue, " Inc", "")
Newcellvalue = Replace(Newcellvalue, " LLC", "")
ActiveSheet.Cells(i, 1).Value = Newcellvalue
Next i
End Sub
このマクロの中心は置換機能です。この機能について詳しく知る必要がある場合は、次のリソースを参照してください。
http://www.exceltrick.com/formulas_macros/vba-replace-function
http://msdn.microsoft.com/en-us/library/bt3szac5(v=vs.80).aspx