Excel VBA質問箱 IV

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

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


60256 / 76732 ←次へ | 前へ→

【21118】Re:特定の文字の入ったセルを下にシフト...
回答  IROC  - 05/1/12(水) 14:16 -

引用なし
パスワード
   >横の関係(”11111”の左隣は”22222”、”333333”の隣は”444444”
>というように)は変えたくないのです。
行単位でのコピー・削除に変更してみました。


>また、18Bの“あああ”は下に移動しないようです。
理由が分かりません。
どのような条件により、セルB18を対象外とするのでしょうか?

>  For i = Range("b65536").End(xlUp).Row To 1 Step -1
>の意味が良くわかりません。 b65536を基点に下から上に
>処理を行っていると思っていいでしょうか?

セルB65536 で ctrl+↑ キーを押してジャンプしたセルの行番号から
上方向にループ処理しています。
ヘルプでEndプロパティについてお調べ下さい。
これはデータの最下行を取得する定番の方法です。


−−−−−−−−−−−−−−−−−−−−−−

Sub Sample2()
Dim i As Long, s As Long, r As Long

  For i = Range("B65536").End(xlUp).Row To 1 Step -1
  
    If Cells(i, 2).Value = "あああ" And Cells(i + 1, 2).Value <> "" Then
      r = i
      For s = r + 1 To Range("B65536").End(xlUp).Row + 1
        If Cells(s, 2).Value = "" Then
          Rows(i).Copy
          Rows(s).Insert xlShiftDown
          Rows(i).Delete xlShiftUp
          Exit For
        End If
      Next s
      
    End If
    
  Next i
End Sub

0 hits

【21109】特定の文字の入ったセルを下にシフトして... bee 05/1/12(水) 10:52 質問
【21110】Re:特定の文字の入ったセルを下にシフトし... IROC 05/1/12(水) 11:10 質問
【21111】Re:特定の文字の入ったセルを下にシフト... bee 05/1/12(水) 11:22 質問
【21112】Re:特定の文字の入ったセルを下にシフト... IROC 05/1/12(水) 11:40 回答
【21116】Re:特定の文字の入ったセルを下にシフト... bee 05/1/12(水) 13:35 質問
【21118】Re:特定の文字の入ったセルを下にシフト... IROC 05/1/12(水) 14:16 回答
【21122】Re:特定の文字の入ったセルを下にシフト... bee 05/1/12(水) 15:27 質問
【21125】Re:特定の文字の入ったセルを下にシフト... IROC 05/1/12(水) 16:39 回答
【21128】Re:特定の文字の入ったセルを下にシフトし... Jaka 05/1/12(水) 16:55 回答
【21132】Re:特定の文字の入ったセルを下にシフト... bee 05/1/12(水) 18:16 質問
【21134】Re:特定の文字の入ったセルを下にシフト... IROC 05/1/12(水) 18:29 回答
【21145】Re:特定の文字の入ったセルを下にシフト... bee 05/1/13(木) 9:18 お礼

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