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

看板Office作者 (ckingsu)時間6年前 (2019/05/27 12:22), 編輯推噓0(005)
留言5則, 1人參與, 6年前最新討論串1/1
軟體: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

05/27 12:36, 6年前 , 1F
於n欄範圍內range.find搜尋變數ss,右側1欄的值,以
05/27 12:36, 1F

05/27 12:37, 6年前 , 2F
range.offset,位址方面看是要以已知欄字串"o"來連接&
05/27 12:37, 2F

05/27 12:37, 6年前 , 3F
range.row列號或是range.address
05/27 12:37, 3F

05/27 12:41, 6年前 , 4F
或是要以工作表函數vlookup來回傳o欄的值,工作表函數
05/27 12:41, 4F

05/27 12:41, 6年前 , 5F
match來取得列號
05/27 12:41, 5F
文章代碼(AID): #1SwsOEkw (Office)
文章代碼(AID): #1SwsOEkw (Office)