Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3752 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【60484】2行でひとつのデータを昇順にする方法 もも 09/2/23(月) 20:06 質問[未読]
【60485】Re:2行でひとつのデータを昇順にする方法 kanabun 09/2/23(月) 20:30 発言[未読]
【60486】Re:2行でひとつのデータを昇順にする方法 もも 09/2/23(月) 20:48 発言[未読]
【60487】Re:2行でひとつのデータを昇順にする方法 n 09/2/23(月) 21:19 発言[未読]
【60489】Re:2行でひとつのデータを昇順にする方法 もも 09/2/23(月) 22:12 お礼[未読]
【60484】2行でひとつのデータを昇順にする方法
質問  もも  - 09/2/23(月) 20:06 -
引用なし
パスワード
   こんばんは。

A列に下記のように並んでいるデータがあります。

田中
444-44
山本
111-11
山田
333-33
・
・
・
2行でひとつのセットです。
2行目のデータで昇順に並べ替える方法を探しています。

結果として
山本
111-11
山田
333-33
田中
444-44

こういう風に並び変えたいのですが
どなたかお知恵を貸していただけませんでしょうか。
宜しくお願い致します。
【60485】Re:2行でひとつのデータを昇順にする方法
発言  kanabun  - 09/2/23(月) 20:30 -
引用なし
パスワード
   ▼もも さん：

>A列に下記のように並んでいるデータがあります。
>
>田中
>444-44
>山本
>111-11
>山田
>333-33
>・
>・
>・
>2行でひとつのセットです。
>2行目のデータで昇順に並べ替える方法を探しています。

こんばんは。

一例ですが、
作業列（仮にB列 とします）に、
　[B1] =PHONETIC(A1)
　[B2] =PHONETIC(A1)
と、両方とも[A1]のフリ仮名を参照する式を入れておいて、
この2セルを選択してフィルハンドル(+)をデータのある最終行まで
コピーして、
B列をキーに（降順）並び替えますと、こうなります。

　　A　　　　　B
1　山本　　　ヤマモト
2　111-11　　ヤマモト
3　山田　　　ヤマダ
4　333-33　　ヤマダ
5　田中　　　タナカ
6　444-44　　タナカ
【60486】Re:2行でひとつのデータを昇順にする方法
発言  もも  - 09/2/23(月) 20:48 -
引用なし
パスワード
   ▼kanabun さん：
お返事ありがとうございます。


>一例ですが、
>作業列（仮にB列 とします）に、
>　[B1] =PHONETIC(A1)
>　[B2] =PHONETIC(A1)
>と、両方とも[A1]のフリ仮名を参照する式を入れておいて、
>この2セルを選択してフィルハンドル(+)をデータのある最終行まで
>コピーして、
>B列をキーに（降順）並び替えますと、こうなります。
>
>　　A　　　　　B
>1　山本　　　ヤマモト
>2　111-11　　ヤマモト
>3　山田　　　ヤマダ
>4　333-33　　ヤマダ
>5　田中　　　タナカ
>6　444-44　　タナカ

うまい具合に降順に並び替ってびっくりました。
名前の順番と番号に関連性はありません。
たとえば555-55は松井という名前だったりします。
【60487】Re:2行でひとつのデータを昇順にする方法
発言  n  - 09/2/23(月) 21:19 -
引用なし
パスワード
   >2行目のデータで昇順に並べ替える方法を探しています。
なので kanabunさんの
>　[B1] =PHONETIC(A1)
>　[B2] =PHONETIC(A1)
これを
　[B1] =A2
　[B2] =A2

既に解は出てるわけだから応用しましょうネ。
【60489】Re:2行でひとつのデータを昇順にする方法
お礼  もも  - 09/2/23(月) 22:12 -
引用なし
パスワード
   kanabun さん
n さん

完成させることができました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3752 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free