[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『行の挿入』(まゆみ)
いつも大変お世話になっております
教えて頂けたら 非常に助かります
よろしくお願いいたします
E列に数値1から10くらいまで入力されてます
1の時は良いのですが
ほかの数値が入ってる場合
その数値引く1の値の数の行数挿入して
その列のコピーを挿入した行に張り付けて
Eの値は1に変更したいのです
たとえばE1に3と値が入力している場合
その下に2行挿入して
1行目のコピーを増やした2行目 3行目に張り付けて
E1 E2 E3の値は1にしたいのです
< 使用 Excel:Excel2010、使用 OS:Windows7 >
Sub test()
Dim r As Range Dim i As Long Dim j As Long Dim k As Long i = Range("E" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False For j = i To 1 Step -1 Set r = Cells(j, "E") k = r.Value If k > 1 Then r.Value = 1 r.EntireRow.Copy r.EntireRow.Resize(k - 1).Insert End If Next Application.ScreenUpdating = True Application.CutCopyMode = False End Sub
こんな感じでしょうか?
(ウッシ) 2014/12/11(木) 14:40
有難う御座います
助かりました
結果できてますが
k = r.Value
上記行で黄色く反転し
止まってしまいまいました
但し結果出ましたので
大丈夫です
これで今週乗り切れます
有難う御座いました
(まゆみ) 2014/12/11(木) 15:11
E列に数値以外が入ったセルがあるって事です。
多分、セルE1には項目名が入っているのですよね?
For j = i To 1 Step -1
を
For j = i To 2 Step -1
とかに適宜変更して下さい。
(ウッシ) 2014/12/11(木) 15:18
サイドコメント有難うございます
セルE1には項目名 です
説明不足ですいませんでした
これに懲りずに 何かありましたら
ご指導お願いいたします
(まゆみ) 2014/12/11(木) 16:30
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.