|
こんにちわ。
早速ですが、質問です。
下のような表があるとします。
A B
-------------------------------
1 AAAA BBBB
2 あああ
3 CCCC
4 DDDD
5 EEEE
6
7
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
|
|