ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] µLªk°õ¦ævba

[µo°Ý] µLªk°õ¦ævba

¦U¦ì°ª¤â½Ð«ü¾É­×§ïvba
  §Ú­n§â sheet1¤¤ ¥H Dve¦æ¤¤¦³ K­È¤§¦UÄæ ¶K¨ì sheet2  A5Äæ ¦p¤U
        sheet1                                 sheet2
1   Item  Des    Dve  Ets               
2   AA     BB       K     EE                k
3   A1     B1       2     E1              
4   A2     B2       X     C2             Item  Des    Dve   Ets
5   A3     A3       K    C4               AA    BB       K      EE
6   A4     B4       Y    C5               A3     A3      K      C4

Sub kkk ( )
Sheets(2).Range("A5:D" & Sheets(2).[a65536].End(xlUp).Row + 1).ClearContents
For i = 2 To [a65536].End(xlUp).Row
If Cells(i, 3) = Sheets(2).[A2] Then
k = Sheets(2).[a65536].End(xlUp).Row + 1
Range("a" & i & ": d" & i).Copy Sheets(2).Range("a" & k)
k = k + 1
End If
Next i
end sub

Sub kkk()
Set a = Sheet1.UsedRange
With Sheet2
.[a1] = "Dve"
.UsedRange.Offset(2, 0) = ""
a.AdvancedFilter 2, .[a1:a2], .[A4]
End With
End Sub

TOP

¦^´_ 2# chin15


    chin15
     ÁÂÁ§Aªº«ü¾É ¦ý¬Oµ{¦¡¤W°õ¦æ«á¬O¥þ³¡¶K¤W¦Ó¨S¤ÀÃþ
    ©Î³\§Ú¨S»¡²M·¡ Sheet2¤Wªºa2Àx¦s®æ­È¬O ÅܼƠ (  Item   Des    Dve   Ets ¬O©ïÀY³æ¦ì )
  ·íSheet2¤Wªºa2Àx¦s®æ­È¬O k ®É«h Dve¦æÄÝ©ó k ®É«hSheet1 ²Ä 2 , 5 ¦æ«h¶K¦bSheet2¤Wa5¤Îa6 Row¤W
  ·íSheet2¤Wªºa2Àx¦s®æ­È¬O X ®É«h Dve¦æÄÝ©ó X ®É«hSheet1 ²Ä 4  ¦æ«h¶K¦bSheet2¤Wa5 Row¤W

TOP

¹ï¤£°_ ¥I¤Wªþ¥ó ½Ð§â­×¥¿«á VBA ¶K¦b¦¹ ¦]§Ú¬O¤p¾Ç¥Í ÁÂÁÂ

Book1.rar (3.99 KB)

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-4-18 18:32 ½s¿è

¦^´_ 4# jim

·s¤â¥i¥ý±q¿ý»s¥¨¶°µÛ¤â¡A¿ý»s¶i¶¥¿z¿ï§Y¥i±o
¥²¶·¦b¥Ø¼Ð¤u§@ªíSheet2°µ¶i¶¥¿z¿ï
¸ê®Æ½d³ò¬OSheet1ªºA:DÄæ
¥HSheet2!A1:A2§@¬°·Ç«h½d³ò
½Æ»s¨ìSheet2!A4:D4

­è¿ý»s¦nªºµ{¦¡½X
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' Hsieh ¦b 2011/4/18 ¿ý»sªº¥¨¶°
  5. '

  6. '
  7.    Sheets("Sheet1").Range("A1:A9").AdvancedFilter Action:=xlFilterCopy, _
  8.         CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:D4"), Unique:=False
  9. End Sub
½Æ»s¥N½X
¿ý»s«á¦A°µ­×§ï§Y¥i
  1. Sub Macro1()
  2.    Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
  3.         CriteriaRange:=Sheets("Sheet2").Range("A1:A2"), CopyToRange:=Sheets("Sheet2").Range("A4:D4"), Unique:=False
  4. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh ¦Ñ®L  ¦hÁ ¬ã¨s«á¦n¹³«D©Ò­nµ²ªG
¬O§_¥i¬d¬ÝÀ£ÁYÀÉbook 1 thanks

TOP

Hsieh ¦hÁÂ

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD