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

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-6-24 14:34 | 只看該作者

Set A = [A65536].End(xlUp).Offset(-29, 0).Resize(30, 1)

學海無涯_不恥下問

dragonbx

帖子: 86
主題: 32
精華: 0
積分: 123
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-28
最後登錄: 2020-7-13

3^#

發表於 2011-6-24 16:39 | 只看該作者

如果說我那一些資料要複製後面30筆到D1欄位的話該怎麼寫呢?

80 字節以內
不支持自定義 Discuz! 代碼

liu5201

帖子: 21
主題: 1
精華: 0
積分: 61
點名: 0
作業系統: xp
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-11-22
最後登錄: 2024-12-1

4^#

發表於 2011-6-25 10:36 | 只看該作者

借用版主,
思考使用巨集方式,範例看看是否大大需要

篩選問題.rar (7.58 KB)

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-6-25 18:33 | 只看該作者

回復 3# dragonbx
範圍複製語法論壇上不是很多嗎?
要自己嘗試看看才會進步

[A65536].End(xlUp).Offset(-29, 0).Resize(30, 1).Copy Sheet2.[D1]

學海無涯_不恥下問

dragonbx

帖子: 86
主題: 32
精華: 0
積分: 123
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-28
最後登錄: 2020-7-13

6^#

發表於 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! 代碼

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-6-27 16:17 | 只看該作者

是要篩選最後30筆資料符合準則的部分
還是篩選結果取最後30筆資料?
請上傳附件說明

學海無涯_不恥下問

dragonbx

帖子: 86
主題: 32
精華: 0
積分: 123
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-28
最後登錄: 2020-7-13

8^#

發表於 2011-6-27 16:25 | 只看該作者

篩選結果取最後30筆資料，因公司無法上傳資料!!
不好意思!!

80 字節以內
不支持自定義 Discuz! 代碼

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2011-6-27 18:06 | 只看該作者

回復 8# dragonbx
做個簡單檔案解釋即可

篩選後30筆.rar (13.24 KB)

學海無涯_不恥下問