看板 Office 關於我們 聯絡資訊
軟體: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 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.134.226.96 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1558930958.A.BBA.html
soyoso: 於n欄範圍內range.find搜尋變數ss,右側1欄的值,以 05/27 12:36
soyoso: range.offset,位址方面看是要以已知欄字串"o"來連接& 05/27 12:37
soyoso: range.row列號或是range.address 05/27 12:37
soyoso: 或是要以工作表函數vlookup來回傳o欄的值,工作表函數 05/27 12:41
soyoso: match來取得列號 05/27 12:41