Excel VBA質問箱 IV

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

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


115 / 74596 ←次へ | 前へ→

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

引用なし
パスワード
    お世話になります。

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

 下記データがあります。

A列店舗コード B列口座コード C列売上金額

 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 1行目のタイトル行(店舗コードなど)と2行目B列が空白の場合3行目以     降のデータをコピーして繰り上げます。
条件2 1行目のタイトル行と2行目B列が空白でない場合、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

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

73 hits

【80125】条件分岐の使い方 ノンボ 18/8/30(木) 21:25 質問[未読]
【80126】Re:条件分岐の使い方 マナ 18/8/30(木) 22:01 発言[未読]
【80127】Re:条件分岐の使い方 ノンボ 18/8/31(金) 20:23 お礼[未読]
【80128】Re:条件分岐の使い方 マナ 18/8/31(金) 20:34 発言[未読]
【80129】Re:条件分岐の使い方 ノンボ 18/9/1(土) 7:13 発言[未読]
【80130】Re:条件分岐の使い方 マナ 18/9/1(土) 8:53 発言[未読]
【80132】Re:条件分岐の使い方 ノンボ 18/9/1(土) 9:53 発言[未読]
【80134】Re:条件分岐の使い方 マナ 18/9/1(土) 10:51 発言[未読]
【80135】Re:条件分岐の使い方 ノンボ 18/9/1(土) 11:10 発言[未読]
【80136】Re:条件分岐の使い方 マナ 18/9/1(土) 11:23 発言[未読]
【80137】Re:条件分岐の使い方 ノンボ 18/9/1(土) 11:37 お礼[未読]
【80131】Re:条件分岐の使い方 ねこの手 18/9/1(土) 8:54 発言[未読]
【80133】Re:条件分岐の使い方 ノンボ 18/9/1(土) 10:00 お礼[未読]

115 / 74596 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free