質問: セルの一部のフォントの置き換え可能ですか?エクセル2000 a列に店名がならんでいます。 1鈴木商店 2山田商店 3田中呉服店 4山口飲食店 ・ ・ ・ たとえば、 これの一文字の「店」のフォントだけを他のフォントに 一括で置き換えできませんか? よろしくお願いします。
回答: a列以外の適当なセルを選び、そのセルの書式(フォント)を変更したいフォントに設定してください。 上記のセルが選択された状態で、以下のマクロを実行してみてください。 作動する範囲はa1:a100になっています、実情に合わせて書き換えてください。 #このマクロでは、各セル中で変更できる文字は1つだけです。 sub test() for each c in range("a1:a100") '←作動範囲 p = instr(c, "店") if p > 0 then c.characters(start:=p, length:=1).font.name = _ activecell.font.name end if next end sub