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

[µo°Ý] ¿z¿ï¤p©ó0ªºVBAµ{§Ç?

¦^´_ 3# jonn0510
  1. Sub nn()
  2. With Range("I2:O21")
  3. .AutoFilter 3, "<0"
  4. .SpecialCells(xlCellTypeVisible).Copy [R3]
  5. .AutoFilter
  6. End With
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# jonn0510
  1. Sub nn()
  2. With Range("I2:O21")
  3. .AutoFilter 3, "<0"
  4. Range("I3:O21").SpecialCells(xlCellTypeVisible).Copy [R3]
  5. .AutoFilter
  6. End With
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD