- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
760 ：デフォルトの名無しさん[sage]：2015/03/19(木) 21:59:12.43 ID:d+3glag/ - Sub TEST()
Dim testData As Variant
testData = ActiveSheet.Range("A1:D100")
With WorksheetFunction
Debug.Print .Max(.Index(.Transpose(testData, 2, 0)))
End With
End Sub
WorksheetFunction使いまくりで一応取得できる
.Transpose外せば行の最大値もとれるよ
| - Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
762 ：デフォルトの名無しさん[sage]：2015/03/19(木) 22:01:31.59 ID:d+3glag/ - Debug.Print .Max(.Index(.Transpose(testData), 2, 0))
閉じかっこ修正
|
|