質問: 特定の文字が表示されている場合、その隣のセルに決まった文字を表示したいのです。 お世話になっております。 セルaの列2000行程度、順不同で1~6の数字が縦に並んでいます。 この場合、a列に1、3、5の数字が並んでいる場合は、a列のそれらのセルのすぐ隣(仮にb列)に”関東”と表示し、2、4、6の数字のすぐ隣のセルには”関西”と表示させるようにマクロで設定するには、どのような表記でしたら良いのでしょう? 条件付書式の使用も考えたのですが、何しろファイル数が多いものですから、どうにかマクロで簡単に出来ないものかと模索中です。 恐れ入りますが、どなたかご教示願います。
回答: 例えばですが a列を指定してb列に貼り付け、1を関東、2を関西・・・に置換えという感じで組んでみると良いのでは? マクロの記録でも簡単に出来るのでやってみてください。 一応参考に。 columns("a:a").select selection.copy columns("b:b").select activesheet.paste selection.replace what:="1", replacement:="関東" selection.replace what:="2", replacement:="関西" selection.replace what:="3", replacement:="関東" selection.replace what:="4", replacement:="関西" selection.replace what:="5", replacement:="関東" selection.replace what:="6", replacement:="関西"