Board logo

標題: [發問] 此程序如何修改?? [打印本頁]
作者: t8899    時間: 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    時間: 2014-2-15 09:26

  1. Sub Ma3333()
  2. Dim ABC As Range
  3. Set ABC = Sheets("Sheet1").Range("e" & [e1:e200].Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, _
  4.    SearchDirection:=xlPrevious).EntireRow.Row)
  5. Sheets("Sheet1").Range("A1:A" & ABC).Select
  6. End Sub
複製代碼
作者: t8899    時間: 2014-2-15 13:40

本帖最後由 t8899 於 2014-2-15 13:54 編輯
zxcxz 發表於 2014-2-15 09:26

我要選擇矩形範圍
abc 的欄部份沒有作用 ??
"A1:A" ===>請教這如何解釋??
作者: zxcxz    時間: 2014-2-15 14:30

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)