エクセルVBAについて質問です。


下記のページにあるマクロで、
5行一組になっていないケースに対応するマクロを作ってください。
http://hatena88.web.fc2.com/hatena/newpage1.html

例えば、一組目で、
『「関東」「空白」「東京」「品川」「空白」』が、
『「関東」「空白」「東京」「品川」「新宿」「原宿」「空白」』と、
「新宿」「原宿」が付け足されて7行一組になっている場合、
D1に「新宿」が、E1に「原宿」が付け加わるようにしてもらいのです。

ちなみに「最初の単語」「空白」というのは変わりません。
その後の単語が2~5行にあり、最後に「空白」で一組です。

以前、上記のページのマクロを下記の質問で作成していただいたのですが、
これは大変良くできていて満足していました。
これを修正する形で回答していただいても結構です。
http://q.hatena.ne.jp/1191184995

以上、よろしくお願いします。

回答の条件
  • 1人2回まで
  • 登録:2007/10/10 08:45:40
  • 終了:2007/10/10 13:33:54

回答(1件)

id:taknt No.1

きゃづみぃ回答回数13538ベストアンサー獲得回数11982007/10/10 12:55:40

ポイント100pt

二回目の空白までが 一区切りとして 処理するようにしました。

Sub Macro1()
'
' Macro1 Macro
'

'
a = Range("A65536").End(xlUp).Row

    crow = 1
    ccol = 1
    e = 1
    f = 0
    For b = 1 To a
        d = Cells(b, 1)
        If d = "" Then
            Select Case f
            Case 0
                f = 1
            Case 1
                f = 2
            End Select
        Else
            Cells(b, 1) = ""
            Cells(crow, ccol) = d
            ccol = ccol + 1
        End If
        
        e = e + 1
        If f >= 2 Then
            e = 1
            f = 0
            ccol = 1
            crow = crow + 1
        End If
    Next b
End Sub
id:taroemon

ご回答ありがとうございます。

完璧にうまくいきました。

僕はいつもtakntさんの回答は鮮やかだなと感心します。

また教えてください。

2007/10/10 13:33:16

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません