返回列表 上一主題 發帖

[發問] 如何篩選後面30筆DATA

dragonbx

帖子
86 
主題
32 
精華
0 
積分
123 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-28 
最後登錄
2020-7-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-24 13:52 | 顯示全部帖子

[發問] 如何篩選後面30筆DATA

小弟我有一資料經篩選過後有些資料>80筆
我該如何寫VBA自動抓後面30筆DATA至指定欄位呢?

測試內容A
1.154
1.152
1.148
1.156
1.16
1.19
1.154
1.154
1.15
1.155
1.1
1.155
1.15
1.155
1.157
1.15
1.143
1.142
1.152
1.152
1.15
1.144
1.18
1.142
1.15
1.14
1.14
1.148
1.047
1.145
1.143
1.149
1.141
1.144
1.146
1.146
1.141
1.142
1.146
1.145
1.144
收藏 分享
80 字節以內
不支持自定義 Discuz! 代碼

dragonbx

帖子
86 
主題
32 
精華
0 
積分
123 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-28 
最後登錄
2020-7-13 
2#
發表於 2011-6-24 16:39 | 顯示全部帖子
如果說我那一些資料要複製後面30筆到D1欄位的話該怎麼寫呢?
80 字節以內
不支持自定義 Discuz! 代碼

TOP

dragonbx

帖子
86 
主題
32 
精華
0 
積分
123 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-28 
最後登錄
2020-7-13 
3#
發表於 2011-6-27 08:33 | 顯示全部帖子
以下為我的原始程式碼:
Hsieh 大我測試過您所提供之程式碼，但是我仍無法自動篩選後面30筆
因為有些>30筆有些<30筆，不知道該如何篩選呢

      Sheets("原始data").Select
    Selection.AutoFilter Field:=5, Criteria1:="Gel time  (171℃)"
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("膠-Gel time").Select
    Range("B9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("原始data").Select
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Sheets("膠-Solid content").Select
80 字節以內
不支持自定義 Discuz! 代碼

TOP

dragonbx

帖子
86 
主題
32 
精華
0 
積分
123 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-28 
最後登錄
2020-7-13 
4#
發表於 2011-6-27 16:25 | 顯示全部帖子
篩選結果取最後30筆資料，因公司無法上傳資料!!
不好意思!!
80 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題