Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6587 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 発言[未読]
【44363】並べ替え
質問  yukko  - 06/11/14(火) 12:18 -
引用なし
パスワード
   　　こんにちはです。
AS8　AS8　AS8　AS8・・・・・・・・・・・・・・・・・・・・・・BL8（列）
47.2 49.8 50.2 43.0 49.1 58.9 61.1 59.1 57.7 52.8 76.3 56.7 57.2
と計算式で求めた数値が入力されています。

この数値をBM8・・・・CF8に数値の大きい順番に並べ替えたいのですが可能でしょうか？

どなたかお知恵を貸してください。


yukko
【44365】Re:並べ替え
発言  りん＠昼休み  - 06/11/14(火) 13:07 -
引用なし
パスワード
   yukko さん、こんにちわ。

> AS8　AS8　AS8　AS8・・・・・・・・・・・・・・・・・・・・・・BL8（列）
> 47.2 49.8 50.2 43.0 49.1 58.9 61.1 59.1 57.7 52.8 76.3 56.7 57.2
>と計算式で求めた数値が入力されています。
>
>この数値をBM8・・・・CF8に数値の大きい順番に並べ替えたいのですが可能でしょうか？

値を貼り付けて、データ→ソート→列単位→８行目ですね。
【44367】Re:並べ替え
回答  yukko  - 06/11/14(火) 13:40 -
引用なし
パスワード
   　こんにちは、りんさん。

デ−タ数（３００行）が多いのでマクロで処理したいのです。


yukko
【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
【44391】Re:並べ替え
発言  ichinose  - 06/11/14(火) 20:46 -
引用なし
パスワード
   こんばんは。
ＡＳ列〜ＢＬ列には全て数値が入っている（未入力セルはなし）という前提で・・・。

Sub main()
　　Dim rng As Range
　　Dim add1 As String, add2 As String
　　With Range("as8", Cells(Rows.Count, "as").End(xlUp))
　　　If .Row >= 8 Then
　　　　 With .Offset(0, 20).Resize(, 20)
　　　　　　add1 = .Cells(0).Address(False, True)
　　　　　　add2 = .Cells(1).Address(False, True)
　　　　　　.Formula = "=LARGE(OFFSET(" & add1 & _
　　　　　　　　　　　 ",0,0,1,-20),COLUMN()-COLUMN(" & add2 & ")+1)"
　　　　　　.Value = .Value
　　　　　　End With
　　　　 End If
　　　 End With
End Sub


数式を使った例です。
試してみてください。
【44408】Re:並べ替え
お礼  yukko  - 06/11/15(水) 13:05 -
引用なし
パスワード
   　みなさんありがとうございました。

助かりました。

yukko
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6587 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free