[[20141211130608]]　『行の挿入』（まゆみ）　ページの最後に飛ぶ

『行の挿入』（まゆみ）

いつも大変お世話になっております
教えて頂けたら　　非常に助かります
よろしくお願いいたします

E列に数値1から10くらいまで入力されてます
1の時は良いのですが
ほかの数値が入ってる場合
その数値引く１の値の数の行数挿入して
その列のコピーを挿入した行に張り付けて
Eの値は1に変更したいのです

たとえばE1に3と値が入力している場合
その下に2行挿入して
1行目のコピーを増やした2行目　3行目に張り付けて
E1　E2　E3の値は１にしたいのです

＜使用 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

コメント返信：

[ 一覧(最新更新順) ]

[[20141211130608]] 『行の挿入』（まゆみ） ページの最後に飛ぶ

[[20141211130608]]　『行の挿入』（まゆみ）　ページの最後に飛ぶ