[算表] [發問] 請教此程式如何更改??
軟體: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
05/27 12:36, 1F
→
05/27 12:37,
6年前
, 2F
05/27 12:37, 2F
→
05/27 12:37,
6年前
, 3F
05/27 12:37, 3F
→
05/27 12:41,
6年前
, 4F
05/27 12:41, 4F
→
05/27 12:41,
6年前
, 5F
05/27 12:41, 5F
Office 近期熱門文章
PTT數位生活區 即時熱門文章