- ©«¤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
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-6-16 14:29 ½s¿è
PD961A, ÀɮרS¿ù, ¤§«e¤w½ÐªO¥DÀ°¦£download ¤F. ÁÂÁ : )
¦ýzz5151353 ¤j¨Ã¨S¦³¸Ñ»¡«ç»ò±NÁôÂ꺸ê®Æ¤£·| ...
ji5kimo µoªí©ó 2010-5-11 11:53
¥Î¶i¶¥¿z¿ï¬O¤£¦æªº
Sheet1,Sheet2, Sheet3 ¤¤GroupÄæ½Ð¨ú®ø¦X¨ÖªºÀx¦s®æ- Sub Ex()
- Dim Sh As Worksheet, W As Worksheet, R As Range, Rng As Range
- For Each Sh In Sheets(Array("Sam", "Jeff", "Joe"))
- Sh.Range("A5:H" & Rows.Count).Clear
- For Each W In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
- Set Rng = Nothing
- For Each R In W.Range("A1").CurrentRegion.Rows
- If Not R.Hidden And R.Cells(4) Like Sh.[d2] Then
- If Rng Is Nothing Then
- Set Rng = R
- Else
- Set Rng = Union(Rng, R)
- End If
- End If
- Next
- If Not Rng Is Nothing Then
- Rng.Copy Sh.Range("b" & Rows.Count).End(xlUp)(2, 0)
- End If
- Next
- Next
- End Sub
½Æ»s¥N½X |
|