Ｅｘｃｅｌ セルの一部の置換

質問

あるセルに
「1,050円（税込）」等いろいろな価格が
かかれてあるとします。価格の横には（税込）
と全部表記しています。
その（税込）という文字だけを横の数字より
小さいフォントにしたいのですが、
一括で置換・変換する方法とかないでしょうか？

回答No.1

y_swe · ベストアンサー

ワークシート上の操作ではちょっと思いつきませんが
VBA(マクロ)を使用してみてはいかがでしょう？
下記のコードで選択範囲の"（税込）"だけを8ptに
します。

[ツール]-[マクロ]-[VisualBasicEditor]
モジュールを追加して下記のコードを追記
マクロを使用できるセキュリティ設定にして
実行します。

以下コード

'----------
Sub change()
Dim change_word As String
Dim c As Variant
Dim l As Integer
change_word = "（税込）" '変換したい文字列
l = Len(change_word)
For Each c In Application.Selection

pos = InStr(c, change_word)
If pos > 0 Then
With c.Characters(Start:=pos, Length:=l).Font

.Size = 8 'フォントサイズ 8pt

End With
End If
Next c
End Sub

お礼

ご回答ありがとうございます。
マクロについては詳しくないので、会社の先輩に聞きつつやってみました。本当になりましたよぉ♪
でも、マクロを組んでしまうとただでさえ重いデータがますます重くなってしまいそうで・・・。
またいろいろと試行錯誤してみたいと思います、
いい勉強になりました。ありがとうございます。