Excel VBA質問箱 IV

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

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


60269 / 76736 ←次へ | 前へ→

【21109】特定の文字の入ったセルを下にシフトして...
質問  bee  - 05/1/12(水) 10:52 -

引用なし
パスワード
   こんにちわ。

早速ですが、質問です。


下のような表があるとします。

      A       B
-------------------------------
1    AAAA      BBBB
2            あああ
3           CCCC
4           DDDD
5           EEEE


8    111111    22222
9           あああ
10           CCCC
11           DDDD
12
13    333333    444444
14           あああ
15
16
17    fffff     gggg
18           あああ
19           hhhh
20           iiii


B列の“あああ”をその同一列で下方向、一番近い空白に
(セル2B→セル6B、セル9B→セル12Bのように)下にシフトして
移動するマクロを作りたいのです。
セル14Bのようにすぐ下が空白のところは移動の必要がありません。


下のようなマクロを作ってみたのですが、どこかでぐるぐるしている
ようで、うまくいきません。マクロを作るのは初めてですので、どのあたりが
おかしいのか検討がつかなくて困っています。

よろしくお願いします。


====移動マクロ====

Sub 移動マクロ()
'”あああ”セルの移動

番号1 = 1
番号2 = 番号1 + 1

Do Until 番号1 = 20

If Not Cells(番号2, 2) = "" Then

  If Cells(番号1, 2) = “”あああ” Then
  Cells(番号1, 2).Select
  Selection.Cut
  End If

 End If
 
  
   Do Until Cells(番号2, 2) = ""
 
 
   番号2 = 番号2 + 1
  
   Loop

   Cells(番号2, 2).Select
  Selection.Insert Shift:=xlDown
  
番号1 = 番号2 + 1
番号2 = 番号1 + 1


Loop


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 お礼

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