- ©«¤l
- 253
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 308
- ÂI¦W
- 0
- §@·~¨t²Î
- W10
- ³nÅ骩¥»
- Excel 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-6-16
- ³Ì«áµn¿ý
- 2024-3-20
|
¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-2-20 04:28 ½s¿è
¦^´_ 1# dou10801
¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý ¬O¤£¬O§Anªºµ²ªG ÁÂÁÂ- Public Sub ¤ñ¹ï½m²ß()
- Application.ScreenUpdating = False
- Range([H3], [I3].End(4)).ClearContents
- Brr = Range([A1], [D65535].End(3))
- For X = 2 To UBound(Brr)
- If Brr(X, 1) & Brr(X, 2) = [E3] & [F3] Then
- Brr(1 + k, 1) = Brr(X, 1)
- Brr(1 + k, 2) = Brr(X, 2)
- k = k + 1
- End If
- Next X
-
- [H3].Resize(k, 2) = Brr
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|