抓取最後30筆欄位的資料

dragonbx

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

ex.

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

chin15

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

Hsieh

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

dragonbx

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

chin15

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

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

dragonbx

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

GBKEE

回復 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

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