標題: 抓取最後30筆欄位的資料 [打印本頁]

---

作者: dragonbx    時間: 2011-5-10 21:27     標題: 抓取最後30筆欄位的資料

如想要把data自動複製後面30筆該如何寫VBA呢?

ex.

我的data有90欄位12列，有辦法讓excel自動抓後面30欄位的data

---

作者: chin15    時間: 2011-5-10 21:34

data有90欄位12列
就這樣？
能否透露一下在什麼位置？
你不說很不好猜的

---

作者: Hsieh    時間: 2011-5-10 21:37

複製資料，要複製到哪裡?要整欄複製或是只複製某些列位?
發問請將需求表達清楚，最好有範例上傳說明

---

作者: dragonbx    時間: 2011-5-10 21:57

ex我有一DATA欄位是E1~AO13是否可以寫vba讓vba自動判定抓取30筆DATA 將L1~AO12並將結果貼至sheet1的A7~AD18

---

作者: chin15    時間: 2011-5-10 22:14

Sub copy30()
With Sheets("1")
n = .[iv1].End(1).Column - 29
.Cells(1, n).Resize(12, 30).Copy Sheets("sheet1").[a8]
End With
End Sub

---

作者: dragonbx    時間: 2011-5-10 22:53

這各方法太棒了~~這樣就可以解決我一個一個篩選的麻煩了
感謝大大的協助唷!!

---

作者: dragonbx    時間: 2011-5-11 08:13

今天測試這個方法，發現只要資料<30筆時程式會出現錯誤~請問這該如何解決呢?

---

作者: GBKEE    時間: 2011-5-11 10:08

回復 7# dragonbx

1. Sub Ex()
   
2.     Dim Rng As Range
   
3.     With Sheets("1")
   
4.         Set Rng = .Range("F1", .Cells(12, .[F1].End(xlToRight).Column)) '資料範圍
   
5.         If Rng.Columns.Count >= 30 Then   '資料範圍欄數   >= 30
   
6.             .Range(Rng.Cells(1, Rng.Columns.Count - 29), Rng.Cells(Rng.Cells.Count)).Copy Sheets("sheet1").[A7]
   
7.             'Rng.Cells(1, Rng.Columns.Count - 29)    ' 資料範圍欄數 -29的 欄位
   
8.               'Rng.Cells(Rng.Cells.Count))                       '資料範圍 最後一個位置
   
9.        Else
   
10.             Rng.Copy Sheets("sheet1").[A7]
    
11.         End If
    
12.     End With
    
13. End Sub

複製代碼

---

作者: dragonbx    時間: 2011-5-11 13:43

真的是太感謝大大詳細的解說了，謝謝!!

---

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