[[20140719001722]]　『一列ごとの列の挿入と削除』（あちゃこ）　ページの最後に飛ぶ

『一列ごとの列の挿入と削除』（あちゃこ）

 一時的に作業列を設けたいです。
 C列から列の挿入が始まり、G列E列G列というふうに、１行おきに作業列を設けたいの
 ですが、コードの長さが名前によって異なります。
 下記のような自動記録をズラズラと並べていたのですが、もっと短く、処理の早い方法
 を教えてください。
 Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

 また、作業列を設けた列で計算されたものを残したいので、上記の逆でパターンで
 B列から削除が始まりD列F列と削除したいと思います。
 以上二つのマクロを別々にご指導お願いいたします。

     A　　　　B   　　C     　 D 　---------   AY　　　　
 1 名前   コード1  コード2  コード3         コード50
 2 鈴木      B50      B30       B40            B30   
 3 田中　　　B60      B50       B70            
 4 森田      B40      B30       B30            
 5 伊藤      B50      B50       B70            B50

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

こういうことでしょうか。

 Sub test()
    Dim i As Long

    For i = 50 To 1 Step -1
        Columns(i + 2).Insert
    Next
 End Sub

 Sub test2()
    Dim i As Long

    For i = 50 To 1 Step -1
        Columns(i * 2 + 1).Delete
    Next
 End Sub

（マナ） 2014/07/19(土) 09:21

 （衝突しましたけど このまま載せてみます）
 > １行おきに作業列を設けたい

 AY列は 第51列ですから、ここから 前方にC列まで行挿入を繰り返したら？

 Sub 列挿入()
    Dim i As Long
    For i = 51 To 3 Step -1
        Columns(i).Insert
    Next
 End Sub

 Sub 列削除()
    Dim i&
    For i = 101 To 3 Step -2
        Columns(i).Delete
    Next
 End Sub

（kanabun） 2014/07/19(土) 09:23 9:28 列削除を追加 m(_ _)m

 マナさん、kanabunさん、返信遅れてしまいました。すみません。
 以後、よく使うことになると思います。回答ありがとうございました。
（あちゃこ） 2014/07/22(火) 22:46

コメント返信：

[ 一覧(最新更新順) ]

[[20140719001722]] 『一列ごとの列の挿入と削除』（あちゃこ） ページの最後に飛ぶ

[[20140719001722]]　『一列ごとの列の挿入と削除』（あちゃこ）　ページの最後に飛ぶ