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

¤½¦¡¶ñº¡

¦^´_ 1# ayubbs
  1. Sub test2()
  2.     [C1].FormulaR1C1 = "=IF(RC[-2]<>"""",(RC[-2]*RC[-1]),"""")"
  3.     [C1].AutoFill Destination:=Range([C1], [A1].End(xlDown).Offset(, 2)) '¥HAÄæ§PÂ_¸ê®Æ°Ï
  4. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# ayubbs

¨º´N­n¬Ý§A§PÂ_¦C¼Æªº¨Ì¾Ú¬O¬Æ»ò?
½Ð¤W¶ÇÀÉ®×»¡©ú§Aªº»Ý¨D
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD