| |
すず さん、こんばんわ。
>具体的にどのような文になるのですか？
>MAX関数を使用してのIF文がわかりませんでした。すみません。
IFでの分岐を使用せず、Maxワークシート関数と一致するものをMatchワークシート関数でインデックス値を取得し、そのセルアドレスから行番号をSubstituteワークシート関数で除いてあります。
Sub test()
Dim r1 As Range
'５行目が対象
Set r1 = ActiveSheet.Rows(5)
'複数のワークシート関数を使用するのでWithでまとめると見た目あっさり
With Application.WorksheetFunction
MsgBox .Substitute(r1.Cells(.Match(.Max(r1), r1, False)).Address(False, False), "5", "") & "列"
End With
'終了
Set r1 = Nothing
End Sub
列を示す文字でなく列番号でよければ、
MsgBox r1.Cells(.Match(.Max(r1), r1, False)).Column & "列目"
こんな感じです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 07/5/28(月) 7:54 -
