Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2253 / 76734

←次へ　｜　前へ→


	【80125】条件分岐の使い方

ノンボ

- 18/8/30(木) 21:25 -


	引用なし

	パスワード

　お世話になります。

　VBAのスキルがまだ拙いです。

　下記データがあります。

Ａ列店舗コード　Ｂ列口座コード　Ｃ列売上金額

　100235　　　　 001　　　　　　 1,100
　100332　　　　 002　　　　　　 1,300
　100342　　　　 003　　　　　　 1,500
　100442　　　　 004　　　　　　 1,700
　100534　　　　 005　　　　　　 1,800
　100425　　　　 006　　　　　　 2,000
　100567　　　　 007　　　　　　 1,900
　100781　　　　 008　　　　　　 2,100

条件１　1行目のタイトル行（店舗コードなど）と2行目Ｂ列が空白の場合3行目以　　　　降のデータをコピーして繰り上げます。
条件２　1行目のタイトル行と2行目Ｂ列が空白でない場合、3行め以降のデータは　　　　　そのままにしたいのです。
下記ソースコードを記入しました。

　Sub Test()
　　Dim i As Integer, j As Integer
　　j = 1
　　For i = 2 To 10
　　　　If (Range("B" & i).Rows <> "") Then
　　　　　　j = j + 1
　　　　　　Rows(i).Copy Rows(j)
　　　　　　Rows(i) = ""
　　　　End If
　　Next i
End Sub

　条件１はうまくいくのですが、条件２ですとデータが削除されてしまいます。
　 Exit for などいくつか試みてみましたがうまくいきません。どのようなコード　を書けばよろしいでしょうか、ご教授ねがえればと思いまして投稿しました。
　　よろしくお願いします。

4 hits

▼

【80125】条件分岐の使い方 ノンボ 18/8/30(木) 21:25