麻辣家族討論版版 » Excel程式區 » 此巨集如何寫??

返回列表下一主題上一主題發帖

[發問] 此巨集如何寫??

大學生 Rank: 4

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-1-30 20:21 | 只看該作者

[發問] 此巨集如何寫??

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

樓主熱帖

收藏

大學生 Rank: 4

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

2^#

發表於 2013-1-30 20:32 | 只看該作者

更改一下
是mouse 要移到e20到e200 之間倒數第一筆"不等於空白"的儲存格

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

3^#

發表於 2013-1-30 22:11 | 只看該作者

回復 2# t8899

Sub TEST1()
firstaddress = ""
With Selection
If .Cells(1, 1) = "" Then
firstaddress = .Cells(1, 1).Address
lastAddress = firstaddress
End If
Set c = .Find("", LookIn:=xlValues)
If Not c Is Nothing Then
If firstaddress = "" Then
firstaddress = c.Address
End If
lastAddress = firstaddress
Do
Set c = .FindNext(c)
If Not c Is Nothing And c.Address <> firstaddress Then
lastAddress = c.Address
End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
MsgBox (lastAddress)
End Sub

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

大學生 Rank: 4

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

4^#

發表於 2013-1-31 06:28 | 只看該作者

回復 t8899
kimbal 發表於 2013-1-30 22:11

謝謝!
這是另一個答案提供參考
Range("e" & [e20:e200].Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, _
SearchDirection:=xlPrevious).EntireRow.Row).Select

靜思自在 : 是非當教育，讚美作警惕。

返回列表下一主題上一主題