返回列表 上一主題 發帖

工作表一篩選後貼到工作表二

工作表一篩選後貼到工作表二

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

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

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

問題來了

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


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

回復 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
複製代碼
學海無涯_不恥下問

TOP

回復 [url=http://forum.t 活頁簿1.zip (7.02 KB) wbts.com/redirect.php?goto=findpost&pid=51995&ptid=9235]1#[/url] lookup221

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題