Excel VBA質問箱 IV

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

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


48372 / 76732 ←次へ | 前へ→

【33296】Re:並び替えについて
発言  ichinose  - 06/1/7(土) 18:32 -

引用なし
パスワード
   平さん、かみちゃん さん、こんばんは。
>
並び替え前
 7324  
 7324C 
 6028  
 16028C 

かみちゃん さんが
>「数値」を「数字の文字列」にしてしまっていいですか?
とおっしゃっているように文字列として比較(並べ替え)を行わなければなりません。

'=================================================
Sub test2()
  Dim col As Long 'データが入力されている最右列番号
  col = Cells(2, Columns.Count).End(xlToLeft).Column
  Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp))
  With rng.Offset(0, col)
    .Formula = "=a2&"""""
  End With
  With Range("A2").CurrentRegion
    .Sort Key1:=Cells(2, col + 1), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
    :=xlPinYin
  End With
  rng.Offset(0, col).Value = ""
End Sub

細かいエラーチェックはしていませんが・・・。
上記のコードは、
作業列を設けて、A列のデータを文字列化した列をキーにして
並べ替えを行っています。
1 hits

【33289】並び替えについて 06/1/7(土) 15:02 質問
【33295】Re:並び替えについて かみちゃん 06/1/7(土) 18:03 発言
【33296】Re:並び替えについて ichinose 06/1/7(土) 18:32 発言
【33373】Re:並び替えについて Hirok 06/1/9(月) 21:36 質問
【33374】Re:並び替えについて かみちゃん 06/1/9(月) 21:50 発言
【33375】Re:並び替えについて ichinose 06/1/9(月) 22:16 発言
【33377】Re:並び替えについて Hirok 06/1/10(火) 10:29 お礼
【33400】Re:並び替えについて ichinose 06/1/10(火) 19:00 発言
【33403】Re:並び替えについて Hirok 06/1/10(火) 21:37 お礼
【33378】Re:並び替えについて 06/1/10(火) 11:26 お礼
【44311】Re:並び替えについて 06/11/12(日) 22:42 質問
【44312】Re:並び替えについて ichinose 06/11/13(月) 7:29 発言
【44314】Re:並び替えについて 06/11/13(月) 9:41 質問
【44349】Re:並び替えについて ichinose 06/11/13(月) 18:23 発言
【44353】Re:並び替えについて 06/11/13(月) 20:23 お礼

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