| |
こんにちわ。
早速ですが、質問です。
下のような表があるとします。
A B
-------------------------------
１ AAAA BBBB
２ あああ
３ CCCC
４ DDDD
５ EEEE
６
７
８ 111111 22222
９ あああ
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
|
|
bee
- 05/1/12(水) 10:52 -
