A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
#02です。
補足の回答がないのですが、適当に想像してマクロを書きました。不都合な点があれば、自由に修正してください。条件は
・A列でデータ有無を判断する
・A列に並べ替えする氏名がある(A列でないときはマクロ中の2行を手直しする。修正箇所はマクロ中に記述)
・名簿は氏名で並べ替えされている
・空白行は一旦削除してから、再度カナ行の切れ目に空白行を挿入する
です
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
私が評価したデータは以下の通りです。
A列
浅田みよこ (1行目)
伊藤弘 (2行目)
江藤太郎
奥田浩二
加藤元気
児玉清
佐藤英二
須藤清美
高橋弘樹
テヅカオサミ
ありがとうございました。質問が明確でなくて申し訳ございませんでした。質問の詳細は、エクセルでの部署毎の名簿をあいうえお順に作り変える時にあかさたな行に空欄の行を入れるのマクロで部署毎の名簿は入退社で人数が変わるので、指定した行挿入は出来なかったので質問しました。この回答で解決しましたのでありがとうございました。
No.2
- 回答日時:
ソフトはエクセルでしょうか?
並び替えはカナ氏名の列で行っていますか?
それとも漢字氏名の列でふりがなを使用して並べ替えを行っていますか?
それによりマクロが変わります
No.1
- 回答日時:
すみません、これはExcelの話ですか?それならOfficeカテゴリの方がよいと思いますが、まず何のアプリについての質問かくらいは明記していただかないと、回答がつきにくいかと思います。
それで、質問内容もよくわからないのですが、
> 名簿をアイウエオ順に並び変えるマクロで並び替えました
並び替えるマクロはあるわけですよね。
> ア行カ行とかアカサタナの間に行を挿入したいのですが
ここの意味がよくわかりません。アイウエオ順に名前が並んでいるのですよね。
明石家さんま
明智光秀
織田信長
加藤茶
菊川怜
:
:
とか並んでいる名簿に
ア行 ← この行を挿入
明石家さんま
明智光秀
織田信長
カ行 ← この行を挿入
加藤茶
菊川怜
:
:
というようにしたい、ということなのでしょうか。
それなら、手でア行、カ行…を挿入していけばいいだけのような気がするのですが。
マクロで並び替えたら、「ア行」までアイウエオ順で並び替えられるので、
明石家さんま
ア行
明智光秀
:
と並びが変になってしまう、ということなのでしょうか。
そうだとして、もしマクロでの並び順に名前のフリガナを使っているのであれば、
「書式」>「ふりがな」>「設定」で、
「ア行」のフリガナを「ああああ」に、
「カ行」のフリガナを「かあああ」に、
「サ行」のフリガナを「さあああ」に、
:
:
としておけば、それらの行がそれぞれの行の一番上に来ると思います。
かなりの部分を想像で書いているので、意図したことと全く違ったらすみません。
回答ありがとうございました。質問が明確でなくて申し訳ございませんでした。質問の詳細は、エクセルでの部署毎の名簿をあいうえお順に作り変える時にあかさたな行に空欄の行を入れるのマクロで部署毎の名簿は入退社で人数が変わるので、指定した行挿入は出来なかったので質問しました。解決しましたので質問のご指導ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelのマクロを教えていただけないでしょうか? 1 2023/07/06 19:56
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- 会計ソフト・業務用ソフト Excelマクロに詳しい方教えてください 1 2023/06/29 16:18
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- HTML・CSS Windowsのformでtextareaに入力すると改行が反映されません 2 2023/06/01 11:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/01/06 08:39
- Visual Basic(VBA) excel2016でリストからカレンダーに内容を反映させたいです 2 2022/10/27 15:32
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- MySQL 下記の問合せを行うクエリを、PhpMyAdminで作成して実行せよ。 「名前(first name) 1 2023/06/24 13:03
- Visual Basic(VBA) セルに抜けた番号の代わりに空白を挿入する 4 2023/04/10 20:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一つのシートの中に複数のペー...
-
WEB上の表の列コピー選択方法は?
-
オートフィルタのリストを順番...
-
エクセルのリストから欠番を拾...
-
ピボットテーブル→参照が正しく...
-
エクセルで作成した縦に長い表...
-
エクセルVBAで、行コピーを複数...
-
【エクセル】行挿入で数式もい...
-
Excelピボットテーブルで 総計...
-
Excelの数式のコピーで列移動で...
-
Excel 表から値をさがして隣の...
-
エクセルで名簿作成中、名前順...
-
マクロの記述をもっとシンプル...
-
マクロを強制的に有効にする方法
-
エクセルの関数の使い方 繰越...
-
ACCESSのデータをEXCELに貼り付...
-
エクセルに詳しい方、助けてく...
-
エクセルVBAコピー
-
Excelで検索結果をテキストボッ...
-
PDFからExcelに変換する時に「...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
一つのシートの中に複数のペー...
-
WEB上の表の列コピー選択方法は?
-
エクセルで作成した縦に長い表...
-
オートフィルタのリストを順番...
-
【エクセル】行挿入で数式もい...
-
Excelの数式のコピーで列移動で...
-
Excelピボットテーブルで 総計...
-
Excel 表から値をさがして隣の...
-
メモ帳からエクセルに貼り付け...
-
エクセルのリストから欠番を拾...
-
エクセルVBAで、行コピーを複数...
-
ピボットテーブル→参照が正しく...
-
エクセルの列幅
-
エクセル シートのコピーをリ...
-
エクセルの関数の使い方 繰越...
-
Excelで検索結果をテキストボッ...
-
エクセル 可視セルのみへ貼り...
-
エクセルに詳しい方、助けてく...
-
地番を順に並べたい。
-
エクセルで名簿作成中、名前順...
おすすめ情報