名簿の行の挿入 - Windows XP - 教えて！goo

＃０２です。補足の回答がないのですが、適当に想像してマクロを書きました。不都合な点があれば、自由に修正してください。

条件は
　・A列でデータ有無を判断する
　・A列に並べ替えする氏名がある（A列でないときはマクロ中の２行を手直しする。修正箇所はマクロ中に記述）
　・名簿は氏名で並べ替えされている
　・空白行は一旦削除してから、再度カナ行の切れ目に空白行を挿入する
です

Sub Macro1()
Dim curStr, upStr As String
Dim idx As Long, ar
　ar = Array("ア", "カ", "サ", "タ", "ナ", "ハ", "マ", "ヤ", "ラ", "ワ")
　With ActiveSheet
　　For idx = .Range("A65536").End(xlUp).Row To 2 Step -1
　　　If Application.CountA(.Rows(idx)) = 0 Then
　　　　.Rows(idx).Delete
　　　End If
　　Next idx

　　For idx = .Range("A65536").End(xlUp).Row To 2 Step -1
　　　curStr = Left(Application.Phonetic(.Cells(idx, "A")), 1) '氏名の列を修正 "A"→？
　　　upStr = Left(Application.Phonetic(.Cells(idx - 1, "A")), 1) '氏名の列を修正 "A"→？
　　　If Application.Match(curStr, ar, 1) <> Application.Match(upStr, ar, 1) Then
　　　　.Rows(idx).Insert shift:=xlDown
　　　End If
　　Next idx
　End With
End Sub

私が評価したデータは以下の通りです。
Ａ列
浅田みよこ　（１行目）
伊藤弘　　　（２行目）
江藤太郎
奥田浩二
加藤元気
児玉清
佐藤英二
須藤清美
高橋弘樹
テヅカオサミ

通報する

ソフトはエクセルでしょうか？

並び替えはカナ氏名の列で行っていますか？
それとも漢字氏名の列でふりがなを使用して並べ替えを行っていますか？

それによりマクロが変わります

通報する

すみません、これはExcelの話ですか？それならOfficeカテゴリの方がよいと思いますが、まず何のアプリについての質問かくらいは明記していただかないと、回答がつきにくいかと思います。

それで、質問内容もよくわからないのですが、

> 名簿をアイウエオ順に並び変えるマクロで並び替えました

並び替えるマクロはあるわけですよね。

> ア行カ行とかアカサタナの間に行を挿入したいのですが

ここの意味がよくわかりません。アイウエオ順に名前が並んでいるのですよね。

明石家さんま
明智光秀
織田信長
加藤茶
菊川怜
　：
　：
とか並んでいる名簿に

ア行　←　この行を挿入
明石家さんま
明智光秀
織田信長
カ行　←　この行を挿入
加藤茶
菊川怜
　：
　：
というようにしたい、ということなのでしょうか。
それなら、手でア行、カ行…を挿入していけばいいだけのような気がするのですが。

マクロで並び替えたら、「ア行」までアイウエオ順で並び替えられるので、

明石家さんま
ア行
明智光秀
　：

と並びが変になってしまう、ということなのでしょうか。

そうだとして、もしマクロでの並び順に名前のフリガナを使っているのであれば、
「書式」＞「ふりがな」＞「設定」で、
「ア行」のフリガナを「ああああ」に、
「カ行」のフリガナを「かあああ」に、
「サ行」のフリガナを「さあああ」に、
　　　　：
　　　　：
としておけば、それらの行がそれぞれの行の一番上に来ると思います。

かなりの部分を想像で書いているので、意図したことと全く違ったらすみません。

通報する