12
返回列表 上一主題 發帖

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

hu0318s

帖子
29 
主題
5 
精華
0 
積分
82 
點名
0  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
註冊時間
2012-6-14 
最後登錄
2020-9-14 
11# 跳轉到 »
發表於 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)

變數4.JPG

變數3.JPG (137.79 KB)

變數3.JPG

123.rar (11.12 KB)

Book2.rar (11.54 KB)

TOP

hu0318s

帖子
29 
主題
5 
精華
0 
積分
82 
點名
0  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
註冊時間
2012-6-14 
最後登錄
2020-9-14 
12#
發表於 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)

122.JPG

TOP

hu0318s

帖子
29 
主題
5 
精華
0 
積分
82 
點名
0  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
註冊時間
2012-6-14 
最後登錄
2020-9-14 
13#
發表於 2013-12-9 21:46 | 顯示全部帖子
回復 24# GBKEE


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

TOP

        靜思自在 : 人要知福、惜福、再造福。
12
返回列表 上一主題