Excel VBA質問箱 IV

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

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


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

28914 / 76807

←次へ　｜　前へ→


	【53183】Re:Ｌａｒｇｅについて

n - 07/12/18(火) 19:14 -


	引用なし

	パスワード

こんにちは。もっと良い案がありそうですが、とりあえずの叩き台として一例。 Sub try() 　　Dim LastRow As Long 　　Dim sPhere　As Variant 　　Dim i　　　 As Long 　　Dim x 　　Dim n(1 To 4) 　　LastRow = Cells(ActiveSheet.Rows.Count, 5).End(xlUp).Row 　　sPhere = Range("X4:X" & LastRow) 　　With Application 　　　　For i = 1 To 4 　　　　　　x = .Match(.Max(sPhere), sPhere, 0) 　　　　　　If Not IsError(x) Then 　　　　　　　　n(i) = x + 3 　　　　　　　　sPhere(x, 1) = Empty 　　　　　　End If 　　　　Next i 　　End With 　　Debug.Print Join(n, ",") End Sub