標題: [發問] 如何篩選後面30筆DATA [打印本頁]

---

作者: dragonbx    時間: 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

---

作者: Hsieh    時間: 2011-6-24 14:34

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

---

作者: dragonbx    時間: 2011-6-24 16:39

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

---

作者: liu5201    時間: 2011-6-25 10:36

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

---

作者: Hsieh    時間: 2011-6-25 18:33

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

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

---

作者: dragonbx    時間: 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

---

作者: Hsieh    時間: 2011-6-27 16:17

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

---

作者: dragonbx    時間: 2011-6-27 16:25

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

---

作者: Hsieh    時間: 2011-6-27 18:06

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

    [attach]6854[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)