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

[µo°Ý] ½Ð°Ý¦p¦óÀò¨ú²Å¦X±ø¥óÀx¦s®æªº¼Æ­È

½Ð°Ý­n¦p¦ó¿z¿ï«á­«±ÆÀx¦s®æ

¥»©«³Ì«á¥Ñ Apple007 ©ó 2015-7-26 13:18 ½s¿è


¦U¦ì«e½ú¤j¤j±z¦n:½Ð°Ý§Ú­n¦p¦ó±N¹Ï¤¤BÄæ¤ÎCÄæ¼Æ­È¬°¹s©ÎªÅ¥ÕªºÀx¦s®æ§R°£«á,¨Ã­«±Æ¦p¥k¹Ï©Ò¥Ü,½Ð¦U¦ì¤j¤j¨ó§UÀ°¦£,Thanks~

1.JPG (17.34 KB)

1.JPG

TOP

¦pªG±zªº¤º®e³£¬O¦p±z¹Ï¥Ü §Ú¨Sªk¨Ï¥ÎVBAÀ°±z ¦ý¥i¥Î³o²³æªº»yªk¨Ó¼g
=IF(OR(B1=0,B1=""),C1,B1)

test.zip (2.01 KB)

TOP

[µo°Ý] ½Ð°Ý¦p¦óÀò¨ú²Å¦X±ø¥óÀx¦s®æªº¼Æ­È


¦U¦ì«e½ú¦n:§Ú¦bA3~A14Àx¦s®æ°Ï°ì,·Q±o¨ìB,CÄæ¦ì¤£¬°¹sªº¼Æ­È,¦p¥k¹Ï©Ò¥Ü,·Q¥ÎVBA¤è¦¡§¹¦¨,½Ð°Ý¦U¦ì¤j¤j³o­n¦p¦ó§¹¦¨,½Ð¦U¦ì«e½ú¤j¤j¨ó§U,ÁÂÁÂ!!
1

µû¤À¤H¼Æ

    • GBKEE: ­«½Æµo©«ª÷¿ú -2

¦^´_ 3# Apple007
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     With Range("b:c")
  4.         If Application.CountIf(.Cells, "0") Then
  5.         .Cells.Replace "0", "=1/0", xlWhole
  6.         .SpecialCells(xlCellTypeFormulas, xlErrors).Delete xlShiftToLeft
  7.         End If
  8.     End With
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE

´ú¸Õok,·PÁª©¤j{:3_48:} ,thanks

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD