[[20150519215254]] 『行方向と列方向のコピー』(りこ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『行方向と列方向のコピー』(りこ)

こんばんは。お世話になります。

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


Mookさん、りこです。
残念ながら、お教え頂いたコードはD列が空白列、他の列は全てC1のコピーになりました。
ですか、お忙しい中ご対応頂き、とても嬉しかったです。
ありがとうございました。
(りこ) 2015/05/21(木) 20:44

 あらら、それは残念ですね。
 一応こちらでは動作するのを確認したのですが、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.