[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『一列ごとの列の挿入と削除』(あちゃこ)
一時的に作業列を設けたいです。 C列から列の挿入が始まり、G列E列G列というふうに、1行おきに作業列を設けたいの ですが、コードの長さが名前によって異なります。 下記のような自動記録をズラズラと並べていたのですが、もっと短く、処理の早い方法 を教えてください。 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
(衝突しましたけど このまま載せてみます) > 1行おきに作業列を設けたい
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.