[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『行方向と列方向のコピー』(りこ)
こんばんは。お世話になります。
A B C D E F
みかん1 みかん1 みかん2 みかん2 みかん3 みかん3
**** #### **** #### **** ####
上のような表があり、A列に列挿入、B1の「みかん1」をA1からA500までコピー、
D列に列挿入、E1の「みかん2」をD1からD600までコピー、というように、
2列ごとに列挿入、一行目の右隣の「みかんx」)をその列の一番下
(右隣の「みかんX」の最終行までコピー、とういう作業を行っています。
ですが、最終列が200列から300列、最終行は50から500まであり、
また、一つのファイルに10シートほどあり、全部に同じ作業をする必要があり、
手作業でやっているのですが、なかなかはかどりません。
全てのシートは最終列、最終行がそろっていません。
また、別のファイルでも1列少ない表で同様の作業を行う必要があり、困っています。
A B C D E
リンゴ1 リンゴ2 リンゴ2 リンゴ3 リンゴ3
**** **** **** **** ****
マクロで行いたいのですが、ご教授いただけないでしょうか。
宜しくお願いします。
りこ
<Excel2010, OS:Windows7>
< 使用 Excel:unknown、使用 OS:unknown >
こんなことでしょうか。
後者の例では、 c = c + 3 を c = c + IIf(c = 1, 2, 3) にしてください。
Sub Sample() Dim c As Long c = 1 Do While Cells(1, c).Value <> "" Columns(c).Insert Cells(1, c).Resize(Cells(Rows.Count, c + 1).End(xlUp).Row, 1) = Cells(1, c + 1).Value c = c + 3 Loop End Sub
(Mook) 2015/05/19(火) 23:15
あらら、それは残念ですね。 一応こちらでは動作するのを確認したのですが、1行目は数式が入っていたりしたでしょうか。
確認ですが、 [A] [B] [C] [D] [E] [F] [G] [H] [I] [1] あ あ い い う う [2] 11 21 31 41 51 61 [3] 12 22 32 42 52 62 [4] 13 33 43 63 [5] 14 44
は
[A] [B] [C] [D] [E] [F] [G] [H] [I] [1] あ あ あ い い い う う う [2] あ 11 21 い 31 41 う 51 61 [3] あ 12 22 い 32 42 う 52 62 [4] あ 13 い 33 43 63 [5] あ 14 44
となるという解釈でよいでしょうか。
(Mook) 2015/05/21(木) 21:13
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.