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

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

t8899

大學生 Rank: 4

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-5-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-2-14 15:52 | 只看該作者

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

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:ABC").Select '==>錯誤

End Sub

樓主熱帖

zxcxz

中學生 Rank: 2

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

2^#

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

複製代碼

TOP

t8899