[[20161214143742]]　『VBA　条件一致の場合、行の自動挿入』（田中）　ページの最後に飛ぶ

『VBA　条件一致の場合、行の自動挿入』（田中）

M列に数字が入っていたら、その下に自動で行を挿入して、上のI、Jセルを除く内容をコピーする（アフターの5、6行目に該当）VBAの式を教えてください。

ビフォー

	A	B	C		D		E		F			G	H	I	J	K	L	M		N		O
1	区分	地区	出荷日		メーカー	得意先番号	取引先			品番	商品名	売	上	返	品	サービス	サンプル	担当
2														数量	金額	数量	金額	金額		金額
3	売上	東京	20160514	明治		1		スーパーA		5555	砂糖	2	10000							田中
4 	売上	大阪	20160514	明治		2		スーパーB		6666	塩	10	19500			3900				田中
5 	売上	名古屋	20160514	明治		3		ドラッグストアA		7777	醤油	7	7280			1040				田中
6 	売上	福岡	20160514	明治		4		ドラッグストアB		8888	みりん	2	1950							田中
7 	売上	仙台	20160514	明治		5		百貨店			9999	胡椒	5	5850							田中

アフター

	A	B	C		D		E		F			G	H	I	J	K	L	M		N		O
1	区分	地区	出荷日		メーカー	得意先番号	取引先			品番	商品名	売	上	返	品	サービス	サンプル	担当
2														数量	金額	数量	金額	金額		金額
3	売上	東京	20160514	明治		1		スーパーA		5555	砂糖	2	10000							田中
4 	売上	大阪	20160514	明治		2		スーパーB		6666	塩	10	19500							田中
5 	売上	大阪	20160514	明治		2		スーパーB		6666	塩					3900				田中
6 	売上	名古屋	20160514	明治		3		ドラッグストアA		7777	醤油	7	7280							田中
7 	売上	名古屋	20160514	明治		3		ドラッグストアA		7777	醤油					1040				田中
8 	売上	福岡	20160514	明治		4		ドラッグストアB		8888	みりん	2	1950							田中
9 	売上	仙台	20160514	明治		5		百貨店			9999	胡椒	5	5850							田中

画像
ビフォー
https://drive.google.com/file/d/0B_3J6sel7r7VVDlUNWhoNjNrZmc/view?usp=sharing

アフター
https://drive.google.com/file/d/0B_3J6sel7r7VRzBka29xdjJBX0U/view?usp=sharing

＜使用 Excel：Excel2016、使用 OS：Windows7 ＞

 同じシートを直接変更するのは運用面で危なっかしい気もしますが。
 愚直に、淡々と行挿入を行う一例。

 Sub Test()
    Dim mx As Long
    Dim i As Long

    Application.ScreenUpdating = False

    mx = Range("M" & Rows.Count).End(xlUp).Row

    For i = mx To 3 Step -1
        If Cells(i, "M").Value <> "" And IsNumeric(Cells(i, "M")) Then
            Rows(i).Copy
            Rows(i + 1).Insert Shift:=xlDown
            Rows(i).Range("M1").ClearContents
            Rows(i + 1).Range("I1:J1").ClearContents
        End If
    Next

 End Sub

（β） 2016/12/14(水) 16:19

β様

完璧です！
早々にありがとうございます！
（田中） 2016/12/14(水) 20:22

コメント返信：

[ 一覧(最新更新順) ]

[[20161214143742]] 『VBA 条件一致の場合、行の自動挿入』（田中） ページの最後に飛ぶ

[[20161214143742]]　『VBA　条件一致の場合、行の自動挿入』（田中）　ページの最後に飛ぶ