- 帖子
- 18
- 主題
- 6
- 精華
- 0
- 積分
- 29
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2000
- 閱讀權限
- 10
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2011-11-22
- 最後登錄
- 2012-5-18
|
我自己也從書本中，將一些巨集修改，寫了一個巨集，不知是否正確。
希望大家修改，給一些意見
Sub Click()
Dim eachsht As Worksheet, eachrng As Range, tmpTbl As Range
Dim myFld As Integer, I As Integer, Q As Range
For Each eachsht In Worksheets
If eachsht.Name <> "Statement" Then
Set eachrng = Sheets("Statement").Range("a65536").End(xlUp).Offset(1)
Set tmpTbl = eachsht.Range("a2").CurrentRegion
Set Q = Sheets("Statement").Range("G2")
myFld = 3
For I = 2 To 180
If tmpTbl.Cells(I, myFld).Value = Q Then
eachsht.Range("a2").CurrentRegion.AutoFilter Field:=3, Criteria1:=Q, Operator:=xlAnd
tmpTbl.Rows("2:" & tmpTbl.Rows.Count).Copy eachrng
End If
Next
End If
Next
End Sub |
|
發表於 2011-12-29 00:13
| 