可以請教當欄位不是固定在一個位置我要如何copy到第2活頁

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

21^# 跳轉到 »

發表於 2013-12-6 00:19 | 只看該作者

回復 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)抓取資料,但都無法成功,所以要麻煩大大指導

變數4.JPG (132.82 KB)

變數3.JPG (137.79 KB)

123.rar (11.12 KB)

Book2.rar (11.54 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

22^#

發表於 2013-12-6 14:54 | 只看該作者

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

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

hu0318s

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

23^#

發表於 2013-12-8 00:22 | 只看該作者

本帖最後由 hu0318s 於 2013-12-8 00:28 編輯

回復 22# GBKEE

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

122.JPG (81.15 KB)