[發問] 請教此程式如何更改??

t8899

Sub 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

zheng211016

上傳檔案3Q