返回列表 上一主題 發帖

[發問] 請教此巨集要如何寫 ?

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-17 15:51 | 顯示全部帖子

[發問] 請教此巨集要如何寫 ?

e20到e200 為公式如下
A20=IF(Y20="","",Y20/(y20-z20))
A21=IF(Y21="","",Y21/(y21-z21))
....
......
a1等於e20到e200 之間倒數第一筆"不等於空白"儲存格的值
巨集如何寫?
收藏 分享

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
2#
發表於 2014-3-18 15:10 | 顯示全部帖子
本帖最後由 t8899 於 2014-3-18 15:12 編輯
    倒數第一筆不等於空白的值，指的是最後一筆有資料的值嗎？
    如果是的話：
owen06 發表於 2014-3-18 13:03

測試一下，您的巨集大約花3-4秒 (滑鼠會出現漏斗狀)
下面這巨集不到一秒，提供給您參考
不知下面這巨集為何會比較快???
Sub aaa()
For i = 200 To 20 Step -1
    If Cells(i, 5).Value <> "" Then
    Cells(1, 1).Value = Cells(i, 5).Value
    GoTo exitline
    Else
    End If
  Next i
  exitline:
End Sub

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
3#
發表於 2014-3-18 15:23 | 顯示全部帖子
本帖最後由 t8899 於 2014-3-18 15:28 編輯

這更快,一行就解決
[a1] = Range("e" & Range("e20:e200").Find("*", , xlValues, , , xlPrevious).Row).Value

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題