- 締切済み
横並びのテキストデータを縦並びに変更する方法
どなたかご存知の方がいらっしゃいましたら，教えてください。 --------------------------------------------- 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ・・・ --------------------------------------------- のように横並びに配列されたテキストデータを， ----------- 1 2 3 4 5 6 ・ ・ ・ ----------- のように縦並びに変更したいのですが，操作方法がわかりません。 エクセルに変換？とかでしょうか。 よろしくお願いします。
- みんなの回答 （3）
- 専門家の回答
みんなの回答
- k0021
- ベストアンサー率26% (32/120)
縦書きでは、ただしIEのみの表示ですが <body style="direction:rtl;margin-top:2em;overflow-y:auto;"> <div style="writing-mode:tb-rl;direction:ltr;height:15em;font:18px/150% serif;"> 古文書にはいわゆる地方文書が多く、中には解読が非常に困難なものもある。</div> 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ・・の数字指定は出来ませんが。全角の数字1桁は出来ますが。 ページの先頭（右端）が表示されるように、bodyタグにdirection:rtl（右から左）を指定すると下詰めになっていますので、divタグにdirection:ltr（左から右）の指定します。 margin-top:2emは、2文字上を空けています。 bodyタグにoverflow-y:auto属性でと指定する。縦スクロールバーのスペースは、消せます。 <writing-mode>属性とキーワードにより縦書きで表示します。tb-rl : 縦書き height属性により15文字で改行しています。 フォントは、お好み文字の大きさ等を指定してください。
- yyr446
- ベストアンサー率65% (870/1330)
何のお話かよくわかりませんが、 ExcelとVBAなら Sub(n) ActiveSheet.Range(Cells(n,1),Range(Cells(n,1)).End(xlToRight).Column).Copy ActiveSheet.Range(Cells(n+1,1),Cells(n+1,1)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False End Sub かな
テキストエディタの置換機能を使い、スペース→改行 の全置換をするのが簡単でしょう。 改行をどのように指定するかはエディタによって異なる可能性があります。私が使っているエディタでは \n ですし、Microsoft Word(エディタではありませんが)では ^p です。詳しくは、お使いのエディタのヘルプをご覧ください。
お礼
ありがとうございます。 早速，試してみたらできました。助かりました。ありがとうございました。