可以請教當欄位不是固定在一個位置我要如何copy到第2活頁
- 帖子
- 29
- 主題
- 5
- 精華
- 0
- 積分
- 82
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 20
- 註冊時間
- 2012-6-14
- 最後登錄
- 2020-9-14
|
可以請教當欄位不是固定在一個位置我要如何copy到第2活頁
|
我們家的資料常常會不是固定欄位,我有用if 去抓它的位子,但無法回傳位子訊息給我,所以要請教大大们,我可以用何方式抓取我要的欄位在copy到另一個活頁簿 |
-
-
test1.JPG
(195.48 KB)
-
-
test2.JPG
(120.22 KB)
-
-
Book1.rar
(13.17 KB)
|
|
|
|
|
|
|
- 帖子
- 3
- 主題
- 0
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- vista
- 軟體版本
- office2003
- 閱讀權限
- 10
- 註冊時間
- 2013-12-28
- 最後登錄
- 2018-11-18
|
26#
發表於 2013-12-28 13:07
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 29
- 主題
- 5
- 精華
- 0
- 積分
- 82
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 20
- 註冊時間
- 2012-6-14
- 最後登錄
- 2020-9-14
|
25#
發表於 2013-12-9 21:46
| 只看該作者
回復 24# GBKEE
謝謝大大的教導,我會在努力學習 愛死你們拉:) |
|
|
|
|
|
|
|
- 帖子
- 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)
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
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
|
|
|
|
|
|
|
|
- 帖子
- 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)
|
|
|
|
|
|
|
- 帖子
- 29
- 主題
- 5
- 精華
- 0
- 積分
- 82
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 20
- 註冊時間
- 2012-6-14
- 最後登錄
- 2020-9-14
|
20#
發表於 2013-12-4 20:44
| 只看該作者
回復 19# GBKEE
謝謝大大的指導,我在去看一下書如何處理保護的情況,謝謝大大的幫忙 |
|
|
|
|
|
|
|
- 帖子
- 29
- 主題
- 5
- 精華
- 0
- 積分
- 82
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 20
- 註冊時間
- 2012-6-14
- 最後登錄
- 2020-9-14
|
18#
發表於 2013-12-3 00:30
| 只看該作者
|
|
|
|
|
|
|
