- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# idsmchow - Private Sub CommandButton1_Click()
- Dim eachsht As Worksheet, eachrng As Range
- For Each eachsht In Worksheets
- With eachsht
- If .Name <> "Statement" Then
- .Range("a1").AutoFilter Field:=3, Criteria1:=Sheets("Statement").Range("G2"), Operator:=xlAnd
- If .Range("a" & Rows.Count).End(xlUp).Row > 1 Then '¦³¿z¿ï¨ì©Ò»Ýªº¸ê®Æ
- Set eachrng = Sheets("Statement").Range("a" & Rows.Count).End(xlUp).Offset(1)
- .Rows("2:" & .Range("a" & Rows.Count).End(xlUp).Row).Copy eachrng
- End If
- .Range("a2").CurrentRegion.AutoFilter '¨S¦³«ü©w·Ç«h->Åã¥Ü¥þ³¡¸ê®Æ
- End If
- End With
- Next
- End Sub
½Æ»s¥N½X |
|