hu0318s

回復 19# GBKEE


    報歉又在麻煩大大,我在練習時碰到我的資料如果不是像上次一樣是連續性的,中間會有空白欄位 我爬過文 http://forum.twbts.com/viewthread.php?tid=4972&highlight=END
Sub Ex()
    Dim Rng As Range
    Set Rng = [B5:B50]
    Set Rng = Rng.SpecialCells(xlCellTypeConstants)   
    Set Rng = Rng.Areas(Rng.Areas.Count)
    Rng.Cells(Rng.Rows.Count, 1).Select
報歉真的不太了解這段訊息的意義,我執行過可以抓到資料到最後一行,也努力去了解,想辦法套進去程式內,也試過用Range("a65536"),end(xlup)抓取資料,但都無法成功,所以要麻煩大大指導

GBKEE

回復 21# hu0318s
SpecialCells 方法   傳回 Range 物件，此物件代表與指定型態及值相符合的所有儲存格。Range 物件。
EntireColumn 屬性 傳回 Range 物件，該物件代表包含該指定範圍的整個欄 (或若干欄)。
Areas 屬性         傳回 Areas 集合，此集合代表多重範圍中的所有範圍。

1. Option Base 1
   
2. Sub Ex2()
   
3.     Dim ar(), i As Integer, a As Range
   
4.     Sheet2.[a:x].Clear
   
5.     ar = Array("T1", "T2", "t3")
   
6.     With Workbooks.Open(Filename:="C:\123.xls")
   
7.         For i = 1 To UBound(ar)
   
8.             Set a = .Worksheets("data").Cells.Find(ar(i), lookat:=xlWhole)
   
9.             If Not a Is Nothing Then a.EntireColumn.SpecialCells(xlCellTypeConstants).Copy Worksheets(2).Cells(1, i)
   
10.         Next
    
11.        .Close False
    
12.     End With
    
13. End Sub

複製代碼

hu0318s

回復 22# GBKEE


    謝謝大大的指導,我剛剛學到粉多新的知識,我可以在請問一下嗎, 我要去那邊看RANGE 的方式跟屬性,像你這樣可以查到它的方,報歉又要麻煩大大你教導我一下,還有世面上有賣這樣的書嗎?
我去圖書館借這板EXCEL VBA 功能索引式參考手冊,但好像沒啥用所以要請問一下要去那邊書籍才有下面的訊息
SpecialCells 方法   傳回 Range 物件，此物件代表與指定型態及值相符合的所有儲存格。Range 物件。
EntireColumn 屬性 傳回 Range 物件，該物件代表包含該指定範圍的整個欄 (或若干欄)。
Areas 屬性         傳回 Areas 集合，此集合代表多重範圍中的所有範圍。

GBKEE

回復 23# hu0318s
不必捨近求遠

下載 (116.5 KB)

2013-12-8 12:57

hu0318s

回復 24# GBKEE


    謝謝大大的教導,我會在努力學習 愛死你們拉:)

chihta25

感謝大大無私分享