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

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

樓主熱帖

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-3-18 13:03 | 只看該作者

回復 1# t8899

倒數第一筆不等於空白的值，指的是最後一筆有資料的值嗎？
如果是的話：

sub test
For Each rng In [E20:E200]
If rng <> "" Then [a1] = rng.Value
Next
end sub

複製代碼

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-25

3^#

發表於 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

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-25

4^#

發表於 2014-3-18 15:23 | 只看該作者

本帖最後由 t8899 於 2014-3-18 15:28 編輯

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章