SUMIF関数について質問です。

文字列操作関数に複数のセルの文字列を結合するCONCATENATEという関数があります。ただこの関数は、複数のセル内に入力された文字を機械的に繋げていくだけなので、多少労力が要ります。

A1に「○事務所いちご」,A2に「○事務所りんご」,A3に「△事務所さくらんぼ」,A4に「■事務所みかん」,A5に「■事務所パイナップル」と記載されているとします。
「○事務所いちご」→「○事務所いちごりんご」としたいのであれば、

①どこでもいいのですが、例えばG1に「りんご」と入力し、

「=CONCATENATE(A1,$G$1)とするか、

②「=CONCATENATE(A1,A2)」として「○事務所いちご○事務所りんご」としてから
不要な「○事務所」の部分をDeleteで削除してください。

①を応用した方が、データが大量にある場合はトータルの時間は短いかもしれませんが、A1とG1を結合させるとA2がそのままで、消去する量が増えるためにどちらがいいかは一概に言えません。

～補足読みました～

いいこと思いつきました。「置換」で一掃してやりましょう。

①「ホーム」タブの「編集」の「検索と選択」で「置換」を選択します。

※以下(②～⑤)は「検索する文字列」→「置換後の文字列」とします。

②「○事務所いちご」→「○事務所 いちごりんご」

③「○事務所 りんご」→「」(→空欄)

④「■事務所 みかん」→「■事務所 みかんパイナップル」

⑤「■事務所 パイナップル」→「」(→空欄)

で、②～⑤それぞれで「すべて置換」を選択すれば終了でした。
試しに実際に入力してみたので間違いありません。

※置換後の文字列を入力しないと「空白に置換」となるので、実質「削除」です。

※注：スペースが半角か全角かということと、記号の「〇」の種類に気を付けなければいけません。「〇」は漢数字と丸印の2種類ありますね。

マクロ例ですが如何でしょうか。
データをSheet1、Ａ，Ｂ列（見出し行なし）、Sheet2に並び替えます。
Sheet1のシートタブ上で右クリック→コードの表示→sampleコード貼り付け→シート上でAlt＋F8キー押下、sample実行

Sub sample()
Dim i As Long, db, wk
Set db = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
wk = Cells(i, 1)
db(wk) = db(wk) & Cells(i, 2)
Next
wk = db.keys
With Sheets("sheet2")
.Cells.ClearContents
For i = LBound(wk) To UBound(wk)
.Cells(i + 1, "A") = wk(i)
.Cells(i + 1, "B") = db(wk(i))
Next
End With
Set db = Nothing
End Sub