Excel総合相談所 97

>708
ちょっと面白そうな問題だったのでやってみた
こんなんどう？

Sub TEST708()
Dim R1 As Range
Dim R2 As Range
Dim R3 As Range
Dim Ans1 As Range
Dim Ans2 As Range

Set R1 = Range("A1")
Set R2 = R1.CurrentRegion
Set R3 = R1.Offset(R2.Rows.Count - 1, R2.Columns.Count - 1)

Set Ans1 = R3.Offset(1, 0).End(xlUp)
Set Ans2 = R3.Offset(0, 1).End(xlToLeft)

Debug.Print Ans1.Address, Ans1.Value
Debug.Print Ans2.Address, Ans2.Value
End Sub