質問: koumokucount(i) & "件 ⇒ 総数に対して" & round((koumokucount(i) / sousuu * 100), 1) & "%" & vbcrlf ・ ・ ・ end with
回答: こんにちは 以下、確認はしていませんが・・・ >以下で言うと(*)の箇所しか残りません。 上書きしているので、最後に書いた内容が有効ということではないでしょうか? characters オブジェクトの (start, length) を利用すれば部分書き換えができるようです。 https://docs.microsoft.com/ja-jp/office/vba/api/excel.characters でも、書き加えるだけなら、変数にまとめて加えていって、最後に代入すれば宜しいかと。 あるいは .characters.text = .characters.text & "追加文字列" みたいな処理で済ませちゃうとか。