作者ckingsu (ckingsu)
看板Office
标题[算表] [发问] 请教此程式如何更改??
时间Mon May 27 12:22:36 2019
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1558930958.A.BBA.html
1F:→ soyoso: 於n栏范围内range.find搜寻变数ss,右侧1栏的值,以 05/27 12:36
2F:→ soyoso: range.offset,位址方面看是要以已知栏字串"o"来连接& 05/27 12:37
3F:→ soyoso: range.row列号或是range.address 05/27 12:37
4F:→ soyoso: 或是要以工作表函数vlookup来回传o栏的值,工作表函数 05/27 12:41
5F:→ soyoso: match来取得列号 05/27 12:41