質問: エクセルで縦書き時に右側に改行したい エクセルを使用し、縦書きの時に改行(alt+enter)しますと既存の文章の左側に新たな文章が入りますが、右側に改行することはできないでしょうか? よろしくお願いします。
回答: vbaの経験がある人なら出来るかも知れません。 a1セルに 縦書き・上詰めで "大きな柿の木が あります。 良く柿の木の 柿を食べたものです。" とあるとして (セル内)改行は、alt+enterで行っているものばかりとします。 標準モジュールに sub test01() x = cells(1, "a") s = 1 st = "" do p = instr(s, x, chr(10), 0) if p = 0 then st = mid(x, s, len(x) - s + 1) & chr(10) & st else st = mid(x, s, p - s + 1) & st s = p + 1 end if loop while p <> 0 cells(1, "b") = st end sub を実行すると 縦に、左から 大きな柿木が あります。 良く柿の木の 柿を食べたものです。 に変わります。b1セルも縦書き、上詰めにしておくこと。 1セルの例ですが多数セルに拡張することはたやすいです。