人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

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

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

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

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:VBA 「東京」 エクセル マクロ 作成
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●100ポイント

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

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
◎質問者からの返答

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

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

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

また教えてください。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ