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

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

 

『行の挿入』(まゆみ)

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

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.