Excel VBA質問箱 IV

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

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


6585 / 13644 ツリー ←次へ | 前へ→

【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に数値の大きい順番に並べ替えたいのですが可能でしょうか?

値を貼り付けて、データ→ソート→列単位→8行目ですね。

【44367】Re:並べ替え
回答  yukko  - 06/11/14(火) 13:40 -

引用なし
パスワード
    こんにちは、りんさん。

デ−タ数(300行)が多いのでマクロで処理したいのです。


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 -

引用なし
パスワード
   こんばんは。
AS列〜BL列には全て数値が入っている(未入力セルはなし)という前提で・・・。

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

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