質問: ms-excel 10列毎に改行したい ms-excel2003で、a1~w1までデータが横並びに入力されています。 これを10列毎に改行したいのですが、マクロでどのようにやればよいでしょうか? 図解すると、、 a1 b1 c1 d1 f1 g1 h1・・・・ のデータを a1 b1 c1 d1 f1 g1 h1 i1 j1 k1 l1 m1 n1 o1 p1 q1 r1 s1 t1 u1 v1 w1・・・・・・ と したいのです。 これをマクロで行いたいのですが、ご教授願えませんか。
回答: 一例です。 ご例示のe列が抜けているのは誤植としています。 for each a in range("a1:w1") range("a5").offset((a.column - 1) \ 10, (a.column - 1) mod 10) = a.value next