想請教Excel VBA 點寫Query? (已解決)

本帖最後由 killuer_edwin 於 2015-7-10 17:03 編輯

而家個workbook有廿幾張sheets, 每張sheet有幾十條entries,
想係新workbook度用vba gen 返邊D entries係未完成

例子, 想抽返每條row 邊D係未complete係咁多張sheets去另一張sheets
而家做法係每張sheets用filter, 再人手copy去另一張度

Untitled.jpg
2015-7-10 13:12

ching 可以分享個VBA SCRIPT 來嗎?

TOP

本帖最後由 a090203 於 2015-9-22 12:09 編輯

回覆 2# wueddie

其中一個方法, LOGIC 大概係咁

    1. 用  For Each 對每張WS做處理
  1. For Each Sheet In ActiveWorkbook.Sheets
  2. ...
  3.   Next Sheet
複製代碼
2. 用End(xlUp). 搜尋 最後一筆資料LastRow
  1. Range("A:A").End(xlUp).Row(.Column)
複製代碼
3.  用LOOP + IF對每筆資料判斷
  1. For i = 1 To LastRow
  2.            If (.....) Then
  3.                .....
  4.                j = j + 1
  5.            End If
  6. Next i
複製代碼
4. 在在上面LOOP內 IF 為TRUE 時 COPY ROW到新WS
  1. Rows(i).Copy Destination:=Worksheets("Sheet1").Range("A" & j)
複製代碼

TOP