- 帖子
- 219
- 主題
- 69
- 精華
- 2
- 積分
- 320
- 點名
- 0
- 作業系統
- Windows 10
- 軟體版本
- Office 2000, 2019
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 彰化縣
- 註冊時間
- 2013-7-18
- 最後登錄
- 2024-3-4
|
Range("a65536").End(xlUp).Select
dim N as long
n=1
do
n=n-1
if not selection.offset(n,0).value="" then
exit do
end if
if selection.row +n -1 < 1 then
exit do
end if
loop
selection.offset(n,0).select |
|
發表於 2017-10-24 19:24
| 