標題: 工作表一篩選後貼到工作表二 [打印本頁]

---

作者: lookup221    時間: 2013-4-2 19:02     標題: 工作表一篩選後貼到工作表二

各位大大我有個疑問
檔案如附檔

我的工作表一
是一個總表
我的資料都會丟到這裡來

工作表二就是將資料篩選後的資料COPY到 工作表二

但問題來了

我的工作表二 資料會一直增加
如何讓VBA自動COPY到
空白欄位


我都是卡在這裡請大大幫忙

---

作者: lookup221    時間: 2013-4-2 19:03

回復 [url=http://forum.t[attach]14518[/attach]wbts.com/redirect.php?goto=findpost&pid=51995&ptid=9235]1#[/url] lookup221

---

作者: Hsieh    時間: 2013-4-2 22:19

回復 2# lookup221

1. Sub ex()
   
2. With 工作表1
   
3. r = Application.CountA(工作表2.Columns("A")) + 1
   
4. .Range("A1").CurrentRegion.Offset(IIf(r = 1, 0, 1)).SpecialCells(xlCellTypeVisible).Copy 工作表2.Cells(r, 1)
   
5. End With
   
6. End Sub

複製代碼

---

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