此程序如何修改?? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 此程序如何修改??

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

[發問] 此程序如何修改??

中學生 Rank: 2

帖子: 34
主題: 14
精華: 0
積分: 61
點名: 0
作業系統: Winxp
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-1-25
最後登錄: 2019-3-4

1^# 跳轉到 »

發表於 2014-2-15 09:26 | 顯示全部帖子

Sub Ma3333()
Dim ABC As Range
Set ABC = Sheets("Sheet1").Range("e" & [e1:e200].Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, _
SearchDirection:=xlPrevious).EntireRow.Row)
Sheets("Sheet1").Range("A1:A" & ABC).Select
End Sub

複製代碼

中學生 Rank: 2

帖子: 34
主題: 14
精華: 0
積分: 61
點名: 0
作業系統: Winxp
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-1-25
最後登錄: 2019-3-4

2^#

發表於 2014-2-15 14:30 | 顯示全部帖子

如果ABC=10
"A1:A" & ABC 就等於 "A1:A10"

靜思自在 : 並非有錢魷是快樂，問心無愧心最安。

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