Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37506 / 76732

←次へ　｜　前へ→


	【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

数式を使った例です。
試してみてください。

0 hits

▼

【44363】並べ替え yukko 06/11/14(火) 12:18