Excel VBA質問箱 IV

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

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


60262 / 76736 ←次へ | 前へ→

【21116】Re:特定の文字の入ったセルを下にシフト...
質問  bee  - 05/1/12(水) 13:35 -

引用なし
パスワード
   IROC様

早速の回答ありがとうございました。

作っていただいたマクロを試してみましたら、下のように
なりました。


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

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


マクロを実行する前


    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


このときの7Bと12Bにあった空白セルが削除されて、
その分、上にあがるんですね。

横の関係(”11111”の左隣は”22222”、”333333”の隣は”444444”
というように)は変えたくないのです。

また、18Bの“あああ”は下に移動しないようです。


すみません、マクロ式全体でわからないことだらけなのですが
、まずは4行目

  For i = Range("b65536").End(xlUp).Row To 1 Step -1

の意味が良くわかりません。 b65536を基点に下から上に
処理を行っていると思っていいでしょうか?


わがままを言いますが、よろしくご指導ください
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 お礼

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