Excel VBA質問箱 IV

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

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


37526 / 76732 ←次へ | 前へ→

【44371】Re:並べ替え
回答  Kein  - 06/11/14(火) 15:03 -

引用なし
パスワード
   では、これでどうかな ?

Sub MySort()
  Dim C As Range

  For Each C In Range("AS8", Range("AS65536").End(xlUp))
   With C.Offset(, 20).Resize(, 20)
     .Value = C.Resize(, 20).Value
     .Sort Key1:=C.Offset(, 20), Order1:=xlDescending, _
     Header:=xlNo, Orientation:=xlSortRows
   End With
  Next
End Sub

0 hits

【44363】並べ替え yukko 06/11/14(火) 12:18 質問
【44365】Re:並べ替え りん@昼休み 06/11/14(火) 13:07 発言
【44367】Re:並べ替え yukko 06/11/14(火) 13:40 回答
【44371】Re:並べ替え Kein 06/11/14(火) 15:03 回答
【44408】Re:並べ替え yukko 06/11/15(水) 13:05 お礼
【44391】Re:並べ替え ichinose 06/11/14(火) 20:46 発言

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