軟體:excel
版本: 2003
ub bac()
Sheets("sheet1").Select
With Sheets("sheet1")
Dim aa, k,ss
Set aa = Sheets("sheet1").Range("n2:n1048").Find(What:="*",
SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious,
LookAt:=xlWhole)
For k = 1 To aa.Row
ss = Application.Large(Range("n2:n1048"), k)
'==> 傳回 ss的右邊1格的值跟位址 ===>這裡要如何改??
next
end with
end sub

於n欄範圍內range.find搜尋變數ss，右側1欄的值，以range.offset，位址方面看是要以已知欄字串"o"來連接&range.row列號或是range.address或是要以工作表函數vlookup來回傳o欄的值，工作表函數match來取得列號