5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

714 :名無しさん@そうだ選挙にいこう:2011/07/22(金) 00:10:14.41
>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

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)