Sub 選択したセル内の集計という文字を取り去る() Dim rCell As Range Dim sString As String For Each rCell In Selection sString = rCell.Value sString = Replace(sString, "様", "") rCell = Trim(sString) Next End Sub