横並びのテキストデータを縦並びに変更する方法

締切済

質問者：emik0420
質問日時：2011/01/26 10:09
回答数：3件

どなたかご存知の方がいらっしゃいましたら，教えてください。

---------------------------------------------
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件)

最新から表示
回答順に表示

No.3

回答者： k0021
回答日時：2011/01/27 17:54

縦書きでは、ただし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文字で改行しています。

フォントは、お好み文字の大きさ等を指定してください。

- 0
- 件

通報する

No.2

回答者： yyr446
回答日時：2011/01/27 10:55

何のお話かよくわかりませんが、

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

かな