Excel VBA質問箱 IV

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

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


39240 / 76732 ←次へ | 前へ→

【42607】Re:並び替えの件で・・・
発言  Ned  - 06/9/16(土) 12:38 -

引用なし
パスワード
   ▼kouka さん:
こんにちは。思いつきのしょもない案ですが

Sub sample()
  Dim r As Range
  With Range("A1", Range("A65536").End(xlUp))
    For Each r In .Cells
      r.Phonetic.Text = Right$(r.Value, 3)
    Next r
    .Sort Key1:=.Cells(1), Order1:=xlAscending, SortMethod:=xlPinYin
  End With
End Sub

0 hits

【42581】並び替えの件で・・・ kouka 06/9/15(金) 16:00 質問
【42583】Re:並び替えの件で・・・ Kein 06/9/15(金) 16:57 回答
【42608】Re:並び替えの件で・・・ Kein 06/9/16(土) 12:47 回答
【42590】Re:並び替えの件で・・・ だるま 06/9/15(金) 20:19 回答
【42603】Re:並び替えの件で・・・ ichinose 06/9/16(土) 11:13 回答
【42607】Re:並び替えの件で・・・ Ned 06/9/16(土) 12:38 発言
【42629】Re:並び替えの件で・・・ Ned 06/9/16(土) 23:10 発言
【42675】Re:並び替えの件で・・・ kouka 06/9/19(火) 10:14 お礼

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