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

¿z¿ï«á,±NÀx¦s®æ¸ê®Æ½Æ»s¨ì¨ä¥¦ªÅ¥ÕÀx¦s®æ(¤wª¦¤å

¿z¿ï«á,±NÀx¦s®æ¸ê®Æ½Æ»s¨ì¨ä¥¦ªÅ¥ÕÀx¦s®æ(¤wª¦¤å

Àµ½Ð¦U¦ì½ç±Ð,§Ú°µªº½d¨Ò¬O­n§â©m¦W"AA"¿z¿ï«á¡A§â¸ê®Æ½Æ»s¨ìªÅ¥ÕÀx¦s®æ(¼ÐÃD¦C¤£­n)¡A·PÁÂ

222.zip (16.02 KB)

¦^´_ 1# rph
  1. Sub Test()
  2.     Dim rngData As Range
  3.     With ActiveSheet
  4.         Set rngData = .Range("A1").CurrentRegion    'A1:C6
  5.         rngData.AutoFilter Field:=1, Criteria1:="AA"
  6.         Set rngData = rngData.Resize(rngData.Rows.Count - 1).Offset(1)  'A2:C6
  7.         rngData.SpecialCells(xlCellTypeVisible).Copy .Range("E14")  'copy to E14
  8.         .AutoFilterMode = False
  9.     End With
  10. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

With ActiveSheet.AutoFilter.Range
¡@¡@¡@.AutoFilter Field:=1, Criteria1:="AA"
¡@¡@¡@.Offset(1).Copy [E14]
¡@¡@¡@.AutoFilter Field:=1
End With

TOP

¦^´_ 4# ­ã´£³¡ªL


    ·PÁª©¥D±Ð¾É

TOP

¥¿¦n­n°µÃþ¦üªºvba¡AÁÂÁÂ¥ý¶iªº±Ð¾É¡A¬ã¨s¤¤

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD