質問: 数値の入ったセルの末尾に、「%」つけるvba a列,c列,e列の数値の入ったセルの末尾に、「%」をつける vbaを教えていただけないでしょうか
回答: こんにちは。お邪魔します。 質問文の言葉通りに(私の解釈で)書いてみました。 元の値が 37 ならば 実行後のセルの表示は 37% 数式バーに表示される実際の値、も 37% です。 ' ' ―――――――――――――――――――――――――――――――――――――――― sub re8198414() dim rtarget as range dim rarea as range on error goto errout_ ' ' 【 a列,c列,e列の数値の入ったセル 】取得 set rtarget = range("a:a,c:c,e:e").specialcells(xlcelltypeconstants, xlnumbers) on error goto 0 ' ' a列,c列,e列の数値の入ったセル【 の末尾に、「%」をつける 】 for each rarea in rtarget.areas rarea.value = application.text(rarea.value, "0""%""") ' ★ next exit sub errout_: msgbox "数値セルがない!" end sub ' ' ―――――――――――――――――――――――――――――――――――――――― もしかして、文字列値として返したい場合、は、' ★の行を以下に差し替え rarea.value = application.text(rarea.value, "'0""%""") です。