Excel VBA質問箱 IV

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

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


34748 / 76734 ←次へ | 前へ→

【47192】Re:都道府県名を含むをソートできない
回答  Kein  - 07/3/4(日) 15:06 -

引用なし
パスワード
   inoueさんの方法と同じですが、作業列を挿入し数式を入れて一気に番号を付与し、
それをキーにして並べ替える。というコードを組んでみました。

Sub MySort()
  Const Municipality As String = _
  "{""北海道"",""青森県"",""岩手県"",""宮城県"",""秋田県""," & _
  """山形県"",""福島県"",""茨城県"",""栃木県"",""群馬県"",""埼玉県""," & _
  """新潟県"",""長野県"",""千葉県"",""東京都"",""神奈川県"",""山梨県""," & _
  """富山県"",""石川県"",""福井県"",""岐阜県"",""静岡県"",""愛知県""," & _
  """三重県"",""滋賀県"",""京都府"",""大阪府"",""兵庫県"",""奈良県""," & _
  """和歌山県"",""鳥取県"",""島根県"",""岡山県"",""広島県"",""山口県""," & _
  """徳島県"",""香川県"",""愛媛県"",""高知県"",""福岡県"",""佐賀県""," & _
  """長崎県"",""熊本県"",""大分県"",""宮崎県"",""鹿児島県"",""沖縄県""}"
  Application.ScreenUpdating = False
  Range("B:B").Insert xlShiftToRight
  With Range("A1", Range("A65536").End(xlUp))
   .Offset(, 1).Formula = _
   "=MATCH(LEFT($A1,((MID($A1,4,1)=""県"")+3))," & _
   Municipality & ",0)"
   .Resize(, 2).Sort Key1:=Columns(2), Order1:=xlAscending, _
   Header:=xlNo, Orientation:=xlSortColumns
  End With
  Range("B:B").Delete xlShiftToLeft
  Application.ScreenUpdating = True
End Sub

1 hits

【47184】都道府県名を含むをソートできない うまくいかない 07/3/4(日) 9:21 質問
【47185】Re:都道府県名を含むをソートできない かみちゃん 07/3/4(日) 10:22 発言
【47186】Re:都道府県名を含むをソートできない うまくいかない 07/3/4(日) 11:05 発言
【47187】Re:都道府県名を含むをソートできない かみちゃん 07/3/4(日) 11:21 発言
【47188】Re:都道府県名を含むをソートできない うまくいかない 07/3/4(日) 11:39 発言
【47189】Re:都道府県名を含むをソートできない かみちゃん 07/3/4(日) 14:03 発言
【47191】Re:都道府県名を含むをソートできない inoue 07/3/4(日) 14:11 発言
【47190】Re:都道府県名を含むをソートできない inoue 07/3/4(日) 14:06 発言
【47192】Re:都道府県名を含むをソートできない Kein 07/3/4(日) 15:06 回答
【47196】Re:都道府県名を含むをソートできない ichinose 07/3/4(日) 17:16 発言
【47198】Re:都道府県名を含むをソートできない うまくいかない 07/3/4(日) 21:10 お礼

34748 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free